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CHAPITRE 1 
INTRODUCTION 


Le système VLISP 16, implémenté sur ordinateur SOLAR 16, est une 
version destinée è l'Ecole Polytechnique du système VLISP de 
l’Université PARIS-8-VINCENNES. 


Le langage et le système sont destinés à l’enseignement st à la 
recherche en programmation expérimentale, en intelligence 
artificietle, et en informatique musicale. 


VLISP 16 est une des plus récentes versions de VLISP, déjà 
implémenté sur Une grande variété d'ordinateurs, très anciens 
(CAE 510, САВ 500), plutôt récents (T1600, SOLAR), grands 
ordinateurs (DEC PDP 10), et microprocesseurs (Zilog 280, 
INTEL 8080). 


VLISP 16 peut, dans son état actuel, être utilisé sous système 
RBOS/D en mode maître et mono-utilisateur, ainsi qu'en temps partagé 
sous système TSF multi-langages. VLISP est, dans ces deux modes, 
totalement interactif, et vient ainsi sompiéter sous TSF l’ensemble 
des langages de programmation disponibles a l’Eccie. 


Ce manuel de référence Livre une description informeile du langage 
VLISP 16 et de son système, chaque construction décrite étant 
tllustrée par une grande variété d'exemples ponctueis. 


Le dernier chapitre donnera en revanche un certain nombre de 
programmes complets d’une certaine ampleur, supposés représentatifs 
des techniques et intentions mises en jeu dans les programmes LISP 
contemporains. Ces programmes viennent | ainsi compléter 
l'énumeration des constructions du langage en les rassemblant par 
des intentions et des styles très variés de programmation. L'auteur 
| engage vivement le lecteur à les étudier ауес soin, à les 
D EE et Les développer. 


http://www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 5 / 130 


Page 1-2 Le Système VLISP 16 


—ara r R 


Ce manuel n'est pas réellement cestiné aux débutants, mais aux 
utilisateurs ayant déjà une certaine expérience de LISP. Le lecteur 
ne doit donc pes espérer une introduction progressive et ordonnée 
eux constructions du langage : ies références avant y seront plus 
souvent la régle que l'exception dans les exemples. C'est ainsi. 


Le manuel décrit en principe tous les aspects courants du systeme, 
mais n'engage l’auteur que sur les principes de base. Le manuel 
sera sujet à des remaniements, aw fur et à mesure de l’évolution 
normale et souhaitée du système et de ses utilisateurs. 


Si vous détectez une situation très anomalique оч une erreur 
manifeste du système, rassemblez Le plus grand nombre d'informations 
sur son état courant, et téléphonez-moi toute affaire cessante аё: 


Patrick GREUSSAY 

Département а” Informatique 
Université Paris-8-Vircennes 
32146364 


Je crois à propos de remercier J, CHAILLOUX, G. ENGLERT, Н. WERTZ, 
J.C. HALGAND, P.L. NEUMAN, D. GODSSENS, J. POINDRON, J.E. SCHOETTL, 
J.P. BOUDIER, S. CHARALAMBIDES, J.F. PERROT, B. ROBINET, H. HUITRIC, 
M. NAHAS, J. VIGNOLLES, J.L. DURIEUX, G. PAUL, A. CATTENAT, 
B. MEYER, J. ALLEN, J. LAUBSCH, R. LEYRAUCH qui ont influencé, per 
leurs excellentes suggestions la conception du systeme dont ce 
manuel est le manuel. 


L'arrivée de VLISP 16 a l'Ecole a été rendue possible grâce a 
J.P. CRESTIN, M. NIVAT, et J.P. JOUANNAUD. 


J. ZEITOUN et A. BUIS ont permis et encouragé, a l'Institut de 
EE la construction d’une version préliminaire de 


Ce manuel a été édité par l’auteur a L’IRCAM sur ordinateur РОР 10, 
grâce a La bienveillance et l'intérêt de C. BENNETT et J.C. RISSET. 


L'édition a été réalisée avec Le programme RF de J.L. RICHER, et 


l'impression du fichier édité a été réalisée sur L’ imprimante 
étectrostatique VERSATEC grâce a La compétence de R. BARA. 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 6 / 130 


Le Système VLISP 16 Page 1-3 


1.1 UNE SESSION INTERACTIVE AVEC VLISP 16. 


Rien de mellteur, pour demarrer, que quelques exempies complets. En 
volci, sous ta forme cde sessions illustrant pour des travaux 
simples, quelques aventures avec VLISP 16. Je conseille fortement 
au nouveau venu sur ie systeme de les rejouer pour son compte. 


»RUN VLISP-:9$,,"2PFA8 “Pour commencer sous TSF, 
>LISP «Pour demarrer a froid. 
VLISP IS WINNING AGAIN = ^Repond YLISP. 

20) Pour se faire les doigts. 


NIL ^VLISP se fait la voix. 
?12 ^Un nombre 

12 wS’ auto-denote. 
?IT „а variable IT est liee a ta 
12 «derniere reponse eu TOP-LEVEL. 
?G IT ID 

24 aLa preuve. 
reu «Pour іе Sceptique 

24 „се l'Ecriture. 
| ARETURN pour aerer, 
?(SETQ А '((A + В) x (A - B))) 

(C(A + B) ж A-B) alLa valeur de А. 
?(DE POL (E) -^Definissons une fonction pour 
? | (IF (ATOM E) E rpoloniser prefixe une expression Z-aire. 
? [(CADR E) (POL (CAR E)) (POL CCADDR. E))1)) 
P "Enrcegistree OK. 
? (POL A „Оп appelle ta fonction POL 

(x (+ A B> (- А B)) wqui ramene le resultat idoine. 


? 
"(POL '((8 ^ 2 - (4 ж (А x OD» 
(- (TB 2 Ck 4 Ck A ODD 


? 
?' MERCAMI ^Je voulais dire I et non A. 
MERCI Le caractere d'annulation a marche. 


~Je tape ESCAPE. 


> ^Nous revoila sous TSF. 
2 On redemarre VLISP a chaud cette fois. 
?(PRETTY POL) ^POL vit toujours. Je ie pratty-printe. 


„Оп attend quelques instants. 
^Et voici que s'imprime 
(DE POL (E) 


(IF (ATOM ED) E (LIST (CADR E) ¿(POL (CAR E)) (POL (CADDR E))))) 
ech? «Le pretty-print est charge. 
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?^(DE FOO (X) ^Definissons la reine des fonctions. 
? (IFE CZERZOP\ ^Horrible. Annulons toute la ligne. 
t (IF (ZEROP X) 1 (TIMES X (FOO (1- 30005) 
00 
? (F00 7) rEssayons. 
p OK. 
? (TRACE FOO) „Је trace РОО. 
~ТВАСЕ s'auto-ioade. 
(FOO? «DK. FOO est traces. 
? (РОО 7) | ^Lancons un appel avec trace. 
------ > FOO (7) Ма ------» montre que ca plonge. 
=- > 2 FOO (6) Ме numero d'appel suit. | 
------ > 3 FOO (5) «Le nom de la fonction appelee suit. 
------ > A FOO (4) Puis la Liste des valeurs d'arguments. 
—— > 5 FOO (3) 
------ > 6 FOO (2) 
------ > 7 FOO (1) 
------ > FOO (D) 
à 8 FOD 1 м.а «------ dit qu'on remonte. 
«------ 7 FOO 1 «Suit Le numero d'appel correspondant. 
<------ 6 FOO 2 ÆPuis le nom de la fonction dont on ramene 
4------ 5 FOO 6 ~le resultat qui suit. | 
<------ 4 РОО 24 
<------ 3 FOO 120 
<------ 2 FOO 720 
<------ 1 FOO 5040 
| 08 aLe resultat final. 
?XUNTRACE РОО) APour detracer FOO. 
(F00) | 
? (F00 7) 
5040 «Comme si de rien n'etait. 
«Je tape ESCAPE. 
> «Retour a TSF. 
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1.2 UNE AUTRE SESSION AVEC VLISP ET ECITI6. 


>CALL EDITI6 ^Appelons l'editeur. 

»EDIT SHUFFL-PG ^Creons le fichier du meme nom. 

NEN FILE nil est nouveau 

INPUT: chante EDITI6. 

(DE SHUF (FX GY) (COND eEt je tape une fonction qui va me 
( (NULL FX) [GY]) calculer le shuffle-product de 2 suites 
(NULL GY) (FX1) ^representees par les listes FX et FY. 


(T (APPEND (DCONS (CAR FX) (SHUF (CDR FX) GY)? 
(DCONS (CAR GY) (SHUF (CDR GY) FX)))))) 

s "Un commentaire vide. C'est la faute a 

s.s «ce perdant d'EDITIB qui crois qu' une 

s; “ligne vide signifie la fin de l'entree. 
«Pour avoir une ligne blanche, je tape 
sun blanc, puis RETURN. Dur. 

(DE DCONS (X L) 


(MAPCAR L «LAMBDA (Y) (CONS X Y)))) 
; (DCONS x (е1 e2 ... eN)) FF ((x . el) (х. e2 ... (х. eN)) ; 


J'ai commente DCONS. Commentaire plein 
ventre deux point-virgules. 
(PRINT 'SHUFFLPG ° 15 ?’WINNING ? AGAIN) 
Pour que ie chargement soit apparent. 
(INPUT) Pour terminer le fichier. 
^Lione vide. Fin d'entree. 


sUn fichier de fonctions qui ne 
Se termine pas par (INPUT) 
«TUE 1° imprudent 

"ou іе negligent. 


à «Je me casse d'EDIT16 en sauvegarde, 
Good old TSF is back again. 
ЄТ VLISP-:5, , ' 2FA8 On appelle un VLISP 
>LISP “tout neuf, 
VL TSP IS WINNING AGAIN «Certes. 
? (LIBRARY SHUFFLPG) ^Je charge mon fichier (SANS ie tiret !!!), 
SHUFFLPG IS WINNING AGAIN 
"ia aLe voila charge. 
?XMAPC (SHUF ? (A B) ' (C DD "PRINT? 
(A B C D) wes suites shut f lees sont imprimees. 
(A C D B> | 
(A C B D) 
(СОА B) 
(C A B D) 
(C A D B) 
But «NIL est ta vateur d’un appet de МАРС. 
? «Vu ?. ESCAPE 
B > DC 
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1.3 ENCORE UNE SESSION AVEC VLISP ET L'EDITEUR EF. 


»RUN VLISP-:8,,"'2FA8 


»LISP 
VLISP IS HINNING AGAIN 


? 

?(DE РОО (X Y) 

? (Fl (ATOM X) 
? 

? 


FOO 


? (LIBRARY DEBUGG:L) 
ا‎ 
? (EF FOO) 


(LAMBDA (ж ж) (ж x xD) 


* 


? (P 2) 
(LAMBDA (X Y) (FI (жож) 
* 


* 
?(РК X) 


(X Y) 


* 
? CL) 
(X) 


* 
?(ЕЕ РОО) 
(LAMBDA (ж) (ж x ж)) 


ж 
?(ЕК FI) ` 
(FI (жж) Ck x 302 


* 
?(D 1) | 
(Gk x) (ж ж ox» 


ж А 

. CH IF) ` u 
(IF Gk ж) (k x *)) 
* š 

2 (ЕЕ F90) 


(LAMBDA (ж) (ж ж 30) 
x 


(CONS (FOO (CAR 


«On tance VLISP 
ea froid. 
Comme toujours. 


«Et on tape une version un peu 
fausse d'une fonction de copie de liste. 
Х)) (FOO CDR X)))) 


«Pas fameux. 

"Faute de disposer du programme 
APHENARETE а’ Harald WERTZ, editons-la, 
«en chargeant DEBUGG-:L, qui contient 
wl'editeur EF, ADVISE et BREAK. 

«C'est chose faite. 


«Pour que EF connaisse FOO. 
«EF n'imprime qu'a 1 niveau. 
^Signale la fin d'une action de EF. 


vimprimons а 2 niveaux. 
Gk k 302) 


? (P 3) “А trois. 
(LAMBDA (X Y) (FI (ATOM ү end (ж ж) (ж x 30002 
^u 


^Cherchons de haut en bas, et de gauche 
~a droite un segment de liste debutant par 
wla konstante X (Find Konstante). 

aLe voila. C'est La Liste d'arguments. 


Ænlevons le dernier element (Delete Last). 
„Оп reentre dans FOD pour avoir une vue 
«d'ensemble. Ya plus qu'un argument OK. 

sl tou pour la clonstante FI. 

"En levons ce F] inepte (Delete <nb-elements>). 
е oita. ‚ EE 


~Et inserons IF en tete (Insert «el» ... <eN>). 
„Воп. | 


„Оп retourne au rez-de-chaussee ou o 
«on pointe sur LAMBDA. 
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? MY З UP 3) „Оп pointe sur le Зете etement, on grimpe un 
COk ж ж)) ^etage de liste, et on poinie sur le Зете 
* ^Biement de l'etage. 


i.e. (Move <si> ... <i) 
^avec «sl» ::- «n» | UP. 


?(P 3) ^Voyons ca. 

¿(CONS (FOO (ж 30) (FOG We X))) 

* 
? <! X) ^Ün colle X en tete. 

(X Ük x ж)) | 

* 
? (EF FOQ) Ün redescend. 

(LAMBDA (ж) (k x X 32) 

* 
? (FK CONS) ^Ün cherche ie ler CONS venu. 
(CONS (жож) (ж ж ok) ) 

* 
? (DL) vûn enleve ie dernier elemen is 
(CONS (ж 32) 

* 
?(IL (FOO (CDR X))) ^Et on place a ta fin : (РОО (COR N2. 
(CONS (ж ж) (x ai? i.e. (insert Last), 

* 
? (EF F00) «Еп bas. 

(LAMBDA (ж) (жж X s>) 
?(P 6) | "Voyons ie resultat de l'edition. 
(LAMBDA (X) CIF (ATOM X) ХУ (CONS (РОО (CAR X?) (FOO (CDR 0022202 
* Correct. 


? ^А present, testons. 
?(F00 ' (Œ (PLURIBUS) UNUM») 
(E (PLURIBUS) UNUM) ^а Colle, 
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1.4 GENERALITES 


Les exemples de session qui precedent sont supposes offrir aux 
Lispiens deja avertis la possibilite de programmer des choses 
simples sans tenir compte outre mesure des idiosyncrasies du systeme 
VLISP 16. On trouvera dans ce paragraphe  l'expose de quelques 
perticularites superficielles de VLISP 16. L'auteur ne s'illusionne 
pas quant a l’interet de cet expose. IL n'en est pas moins 
indispensable. Une FORME reste a inventer pour les manuels de 
references : systematiser  l'expose, montrer la necessite des 
constructions, demontrer quand tt faut, organiser l’esseim 
d'exemples comme un discours suivi, seduire pour convaincre, marquer 
enfin a tout instant l'aspect profondement Liberateur et creatif de 
la programmation dans un langage capable. 


Le besoin d'une telle forme est eujourd'hui sensible, son apparition 
demeure .encore a venir. Elle ne s'est pas produite pour ce manuel, 
qui est probablement un des derniers du genre, en ce qui me 
concerne. Ce genre ancien se reconnait a ce qu'il distingue 
malaisement l'essentiel du superficiel et melange toutes les notions 
dans un joyeux fatras qui, aujourd’hui apparait moins eclatant. 


C'est donc sens embarras que le present paragraphe deroule ses 
classifications semblables a celles des bestiaires de BORGES. Que 
Le lecteur se persuade cependant qu'aux yeux de l’auteur, son 
itineraire n'en reste pas moins irremediablement absent. 


1.6.1 Comment Utiliser VLISP 16 


A l'Ecole, le mode normal d'utilisation sera un cycle de va-et-vient 
entre VLISP et EDIT16. Comme dans la seconde des sessions donnees 
en exemples, je vous conseille de rassembler vos paquets de 
definitions dens un fichier (voir Chapitre 5) que vous constituerez 
sous EDIT16, puis de les lire en bloc grace a la fonction LIBRARY. 


Ces paquets une fois lus, vous appelez en mode interactif les 
fonctions qui les constituent, vous en constatez te plus 
generalement l’incorrection, vous testez un peu grace aux excellents 
outils du Chapitre 8, apres quoi vous revenez a EDIT16 pour rendre 
vos corrections definitives. 


11 và de soi que ces ensembles de definitions, affectations usu., 
seront  rassembles par une INTENTION (un traitement d'arbre, de 
demonstration automatique, de dialogue en langue naturelle, de 
verification de preuve, de resolution de probleme robotique, de 
calcul symbolique,  d'enumeration d'objets — combinatoires, de 
construction d'interpretes et de traducteurs, en general quelque 
chose d'interessant). | 
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Pour entrer en VLISP 16, a t'Ecole chantez : 


>RUN VLISP-:5S,,' 2FA3 


»LISP 


Le ">" est le prompteur de TSF. VLISP se dert un tant soit peu, 
apres quoi le caractere "?" prompteur de VLISP apparait. Vous tapez 
alors vos demandes d'evaluat ion. 


Cependant, il se pourrait qu'une evaluation aboutisse a un desastre 
(voyez les desastres au Chapitre 7), patent dans la cas d'une 
impression interminable, muet dans le cas d'une boucle infinie. 
Interrompez ie mauvais calcul en frappant La touche "BREAK". Retour 
se fait sous TSF. Pour revenir a VLISP sans tout reinitialiser (et 
du coup perdre votre image-memoire, pleine d'informations utiles), 
chantez : 


»CLISP 


Reste qu'il se pourrait que meme a appuyer sur BREAK, il ne se passe 
rien. Vous etes un homme mort. Votre image-memoire sera 
trremediablement detruite par les plusieurs appels de BREAK dans ce 
ces necessaires au retour sous TSF, 


Pour sortir de VLISP, enfoncez іа touche ESC, qui vous emmene a TSF. 


1.4.2 Les Annulations 


Pour annuler les «n» derniers caracteres tapes sur la ligne, frappez 
«n» fois le caractere "X", Puis tapez vos caracteres de 
remplacement a la suite. 


Pour annuler d'un seul coup toute une Ligne, tapez "X" suivi 
IMMEDIATEMENT du RETURN. Puis retapez votre ligne tranquillement. 


Quand on definit une fonction, et que plusieurs Lignes sont deja 
ecrites, et qu'on n'est pes content, et qu'on veut tout annuler, 
pour recommencer du bon pied, on tape "..." i.e. quelques points de 
suite suivis de RETURN : ce qui provoque une erreur de lecture et 


l'annulation recherchee. 
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1.4.3 Le Mode Eval 
L'interprete tourne en mode EVAL : il iit un atome ou un appel de 
fonction, l'evalue, imprime le resultat de l’evaluation, et 
recommence. А peu pres ceci : 

(WHILE T (SETQ IT (PRINT (EVAL CREAD))))) 

ou encore 
(LET CUT 'IT)) (SELF (PRINT (EVAL (READ))))) 


Dans ce qui suit, une telle boucle sera nommee boucle TOP-LEVEL. 


La variable globale IT sera Liee avec le resultat de La derniere 
evaluation au TOP-LEVEL. 


EXEMPLE : 


2 
?(ж IT ID 
4 
?(x IT IT) 
16 
Le terminal indique qu’il attend quelque chose a lire, par 
l'impression de "?". On tape alors a la suite. IL est possible 


d'eviter l'impression au TOP-LEVEL (voir Chapitre 6). 


Il est egalement possible comme je viens de le faire de se redefinir 
soi-meme sa propre boucle TOP-LEVEL. 


1.4.4 Commentaires 
Tout ce qui se trouve entre deux ";" sera totalement ignore du 
Lecteur VLISP. Un commentaire peut se deployer sur plusieurs 
Lignes. 
HORRIBLE EXEMPLE : 

ое commentaire inepte ;) 

?N; encore un ;1; horrible commentaire $L 

` NIL 
?NI; ` 
? un dernier 


? horrible commentaire 
?;L 
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À ce propos, je me sers assez souvent d'un commentaire vide pour 
delimiter, dans la liste d'arguments formels d'une fonction, les 
arguments que j'utilise effectivement a l'appel, de ceux que je 
considere comme des variables de travail Locales a la fonction. 
Artifice purement typographique. Voir pourquoi ca marche au 
Chapitre 2. 


EXEMPLE : 


(DE REVDROP (L ;; bi 
GE E u= (CDR L) (CONS [CAR L)1 R)) 


(REVDROP ° (А В OD. FF ((O (B (AD 


1.4.5 Format Externe Des Atomes 


11 peut s'agir : 


- d'un nombre i.e. une suite de chiffres, eventuellement precedee 
de "-". Une suite de chiffres precedee par "+" n'est PAS 
consideree comme un nombre. 


- d'un symbote і.е. un atome  non-numerique. ` Toutes (ез 
combinaisons de caracteres sont acceptees, а l'exception des 
seperateurs. Tout atomé qui n'est pas un nombre sera considere 
comme un symbole. А ta lecture d'un symbole, seuls les 8 premiers 
caracteres sont enregistres, tous les caracteres suivants sont 
ignores. 


1.4.6 Separateurs 


L'espace (" "), Le point ("."), les parentheses ouvrantes ("("), еї 
fermantes (")"), Le quote ("'"), le carre ouvrant ("D et fermant 
("J"), sont des separateurs d'atomes, qui ne sauraient en comporter, 
seuf a les faire immediatement preceder du caractere slash ("/") qui 
masque alors leur qualite de seperateurs. 


d | Un macro-ceractere (voir Chapitre 5) acquiert La qualite de 
separateur. 


Le point-virgule de commentaire (";") n'est PAS un separateur. 
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1.4.7 Format Interne Des Atores 


Un atome-symbole est (tres aprroximativement) represente en memoire 
ainsi : 


| 
C-VALEUR | P-VALEUR | 


P-NOM | 


Les parties C-VALEUR et P-VALEUR contiennent des adresses de 
symboles, de nombres ou de listes. 


La partie P-NOM contient la suite des caracteres qui rendent ie 
symbole imprimable. 


La partie C-VALEUR contiendra, a tout instant la valeur du symbole, 
considere comme variable, globale ou parametre de fonction. 


Cette C-VALEUR sera explicitement accessibte en tant que CAR de 
l'atome. 


Les C-VALEURS des atomes definis par l'utilisateur sont initialisees 
a la valeur INDEFINI, ce qui provoquera l'erreur A8 (voir Chapitre 
7), si l'evaluation en est tentee. 


Les C-VALEURS des fonctions standard contiennent l'adresse d'un 
point d'entree dans le code-machine correspondant. 


Certains atomes du systeme contiennent leur propre adresse en 
C-VALEUR, ces atomes speciaux nommes CONSTANTES, sont NIL, QUOTE, 
LAMBDA, EXPR, FEXPR, MACRO, T. 
Nut besoin donc de les quoter. 
EXEMPLE : 

[NIL QUOTE LAMBDA EXPR FEXPR T; 

-> 
(NIL QUOTE LAMBDA EXPR FEXPR T) 
IL faut aussi savoir qu'en YLISP 16, tout appel avec, saut NIL, une 


constante en position de fonction, vous ramene l'appel tei quel en 
valeur. Avec NIL, vous bouciez indefiniment. 
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EXEMPLES : 
?(T FOO) EF (T FOO) 


? (LAMBDA (FOO) (BAR) ) 
-> 

` (LAMBDA (FOO) (BAR)) 

?(NIL T) EF boucle 
Cette propriete s'etend a toute variable qui est liee a sa propre 
valeur. | 
La partie P-VALEUR contiendra la P-liste de l'atome, Etle sera 
consideree comme le CDR de l'atome. 


La P-VALEUR des constantes est initialisee a NIL. Ainsi l’egalite 
suivante est satisfaite : 


(CDR NIL) = NIL = (CAR NIL) 
On notera que DE, DF et DM (voir te Chapitre 2) ne touchent pas a ta 


C-VALEUR du nom de la fonction qu'elles permettent de definir. Il 
est donc loisible de redefinir une fonction standard. 


EXEMPLE : 
(DE CAR (L) (COR L)) «CAR se comporte comme CDR. 
(CAR '(A В С)) kr (BO „Comme on voit. 
(REMPROP °САВ EXPR) «Que CAR se comporte comme CAR. 
(CAR "(AB OD p A «Voila. 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 17 / 130 


Page 1-14 Le Système VLISP 16 


a OOO n mmm 


1.4.8 S-Expressions Pointees 
Eiles sont acceptees par le systeme sous la forme la plus generale : 


(<5- ахрг-роіпќее> . <s-expr-pointee>) 


EXEMPLE : 
(A. (ŒB. С). (DE. (F GH. DD 


1.4.9 Les Nombres 


Seulement les entiers. Et inclus dens l'intervalle [-32767, 32767] . 
Les atomes numeriques ne comportent ni C-VALEUR, ni P-VALEUR, ni 
P-NOM. Ils sont stockes en zone liste dans un format special. 


Des nombres hexadecimaux peuvent etre directement utilises. Ils ont 
(а representation externe : 


«c»«c»«c»«c»HH 


dens laquelle «c» est un chiffre hexadecimal € [0,1, ... ,E,F]. 


1.6.10 Combien D'Objets ? 


Par defaut 200 atomes-symboles definis par l'utilisateur, et 3200 
doublets en zone liste (ces indications seront appe lees а varier), 
il est tout a fait possible de regler ces nombres selon son desir 
(voir Chapitre 7). 


Pour savoir combien de cellules de tiste (doublets) sont 
disponibles, evaluez de temps en temps : 


(CDR 'REM) 


1.4.11 L'Evatuation Des Variables 


VLISP 16, comme ses contemporains, пе represente PAS son 
environnement par une ÂÀ-liste. A tout moment, іа valeur des 
variables est accessibles en C-VALEUR. A l'entree d'un PROG ou 
d'une fonction dont la variable est argument formel, l'ancienne 
veleur de cette variable est empilee dans une pile de travail, et 
restituee a la sortie. 
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Ce mode d'acces est TRES efficient, repond a l'appellation de 
LIAISON-SUPERFICIELLE, et les versions de LISP aui ne te font pas 
sont perdantes. Mais tout se paye. Pas question de FUNARG en 
PEE Si vous voulez des fermetures programmez en SCHEME ou en 


Voici cependant une facon possible de vous definir une fermeture de 
la forme : 


(CLOSURE (<vl> ... <vN>) «A-express ion») 


Qu les «vl» sont Les variables dont vous voulez voir la valeur 
courante FERMEE dans la «Lambda-expression». | CLOSURE vous ramene 
une fonction telle que ‘si vous l'appliquez, tes valeurs des 
occurences Libres des <vi> seront celles du moment de la 
construction de la fermeture (si vous avez compris cette phrase, 
nous vous offrons de venir a votre prix donner un cycle de 
conferences a Vincennes pour nous L’expliquer). 


(DF CLOSURE CL 
[LAMBDA (CADADR -L) (CONS [LAMBDA (CAR -1) (CADDR(CADR -L))3 
| (MAPCAR (CAR -L) : 
(LAMBDA (=X) [QUOTE (EVAL =х) 1))) 2) 


On notera qu'en cas d'erreur еї retour de ce fait au TOP-LEVEL, les 
variables conservent la valeur qu'etles avaient AU MOMENT de 
L'erreur : precieuses informations pour La mise au point. 


1.4.12 VRAI Et FAUX 


EN VLISP 16, la valeur logique FAUX se dit NIL, et la valeur logique 
VRAI est equivalente a non-NIL. 


Ceci permet de faire ramener aux predicats des valeurs utiles. 


Par exempie, (MEMQ x y) ramene, ou bien NIL, ou bien te CDR de y 
dont x est te premier element, De meme, ia valeur de OR est la 
valeur de son premien argument vrai (i.e. non-NIL), et la valeur de 
AND est, ou bien NIL, ou bien la vaieur de son dernier argument. 


1.4.18 Les Interpretations Iteratives 


Une particularite maitresse de VLISP, quelque soit t' implementation 
est d' interpreter iterativement Les fausses  recursivites. 
Iterativement est ici defini en termes de ressources : un appel de 
fonction est iteratif s'il ne demande pas plus de ressources que 


celles accordees a l'entree de le fonction. Les ressources en 
š questions sont Les tailles de piles, ainsi que Le nombre de 
| doublets. 


' 
t 


| 
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C'est ainsi que dans : 


(DE TOP-LEVEL (IT) 
(TOP-LEVEL (PRINT (EVAL CREAD))))) 


la suite des appels internes de TOP-LEVEL ne provoquera PAS un 
debordement de pile, et bouclera, comme il se doit pour une 
boucle-systeme, indefiniment. 


Cette propriete se conserve, quelque soit Le niveau d'imbrication 
des appels dits iteratifs dans les structures de controle mises en 
jeu dans le corps de fonction. 


L'utilisation systemat ique de cette propriete induit un style tres 
souple et tres naturel de programmation recursive, bien eloigne des 
horribles structures de controle dites plates. 


La theorie de ta chose et sa methode d' implementation sont decrites 
dans un rapport de l'auteur publie au Laboratoire d'Informatique 
Theorique et Programmation.  Demandez-le a la dame. 


1.4.14 La Liste Des Atomes Standard 
Pour la connaitre chantez quelque chose comme : 


(DE FORMAT (L NC NAL) 
(LET ((X 1) (NN NAL)) 
(IF (NULL L) (OR (EQ NN NAL) CTERPRID) 


(TTAB X) 
(PRINi (NEXTL L)) (SETQ X (+ X NO) 
(DECR NN) 
(COND ((ZEROP NN) 

(TERPRI) (SETQ NN NAL X 1))) 
(SELF X NM)))) 


; L » une Liste d'etomes 
NC = espace inter-colonnes 
NAL » nombre d'atomes par ligne ; 


(LET rg NIL) (X «LOC NIL))) 


(GT X (LOC 'SYS3)) (FORMAT (REVERSE RES) 10 7) 
(SELF «CONS (VAG X) RED (+ X 6)))) ` 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 20 / 130 


Le Système VLISP 16 Page 1-17 
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1.4.15 La Bibliotheque Initiale 


Un fichier standard nomne INIVLI-:L est eutomatiquement charge 
toutes les fois que vous rentrez dans VLISP 16 a froid, per »LISP 
sous TSF. Ce fichier est tres indispensable a la bonne marche du 
systeme. Ii contient des definitions de fonctions, de macros, de 
macro-caracteres, toutes sortes de choses interessantes. 


Examinez-le donc avec EDIT16, ainsi que les autres fichiers 
standard, tels que PRETTY-:L, TRACEF-:L, DEBUGG-:L ... 


Ces fichiers sont partages par TOUS les utilisateurs de TSF. Si 
vous voulez les modifier ou Les completer, faites donc une copie 
prealable et modifiez votre copie de La maniere qui vous plaira et 
tenez-mol au courant en decrivant brievement vos innovations dans le 
fichier d'informations VLIDOC-:L, prevu a cet effet. 
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CHAPITRE 2 
FONCTIONS DE DEFINITION ET TYPES DE FONCTIONS 


VLISP 16 comporte 7 types de fonctions : 
SUBR NSUBR FSUBR EXPR NEXPR РЕХРА MACRO 


Les {SUBR, NSUBR, FSUBR} sont des fonctions standard, ecrites en 
(angage-machine SOLAR 16. 


Les (EXPR, NEXPR, FEXPR, MACRO} sont des fonctions definies par 
l'utilisateur en langage VLISP. 


2,1 LAMBDA-FONCTIONS ET FONCTIONS DEFINIES 
Une fonction en VLISP 16 pourra etre literale (ou anonyme, ou encore 
Immediate) et prendra alors la forme d'une LAMBDA-EXPRESSION 
(Lambda-Fonction) : 

(LAMBDA «ipf» . «corps»? 

avec + «lpf» = liste de parametres formels. 
«corps» = «el» <e2> ... «eN» 
ou les «el» sont des expressions qui 


seront evaluees en sequence, la valeur 
remenee etant celle de «eN». 


Une fonction pourra etre egalement definie (ou nommnee) et sera 
introduite sous ia forme de : 
(DE «nom» «ipf» . «corps»? 
| (OF «nom» «ipf» , <corps>) 
* | Е "м «nom» <lpf> . «corps»? | 
Une  lambda-expression de la forme precedente sera automatiquement 


generee par le systeme et associee au «nom» sur Sa P-liste. 


< Une liste de parametres formels aura Le forme : 
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(«pfl» «pf2» ... <pfN>) 

ou 

(<р#1> <pf2> ... «pfN-1» . <pfN>) 
ou 

<pf> 


Dans Le second cas le parametre <pfN> sera lie avec le RESTE des 
valeurs des arguments de l'appel і.е. avec le N-ieme CDR de la 
Liste des valeurs. 


EX : 
( (1 АМВОА (X Y . 2 [X Y 21) 1 2 3 4) 
-> (12 (3 4)) 


(DE РОО (X Y . Z) 
[X Y ZJ) 
(F00 1234) -> (1 2 (3 4)) 


Dans le troisieme cas, «pf» sera liee avec la LISTE des valeurs des 
arguments a l'appel. 


EXEMPLE : | 
((LAMBDA X £X X1) 1 (А001 1) (SUBI 4)) 
-> (1 2 3) 023») 


(DE FOO X (APPEND (CDR X) [(CAR X)1)) 
(FOO (А001 0) 2 (SUBI 4)) 


-> (23 1) 


Si une fonction (standard ou definie par l'utilisateur) n'a pes 
assez d'arguments fournis a l'appel, ies arguments manquants sont 
supposes etre NIL. Le fonction ne peut pas distinguer entre NIL 
donne comme argument et pas d'argument du tout (ceci ne valant bien 
entendu que pour un facteur droit de la Liste d'arguments). | 


EXEMPLE : 
FOO) aura le meme effet que (FOO NIL) 
(SETQ X NIL) aura le meme effet que (SETQ X) 
Si \ appel de la fonction comporte trop d'arguments (pour Les EXPR 
et les R), ils sont evalues mais ignores par la fonction. 
Donc, si on a une fonction <f> & M arguments, et qu'on evalue 
| | («f» «argl» ... «argN») evec N > M. 


Les arguments «ergM«1», <argM+2>, ... , «argN» seront evalues mais 
leurs valeurs seront ignorees. 
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2.2 TYPES DES FONCTIONS 
2.2.1 LES EXPRs 


A l'appel d'une fonction de type EXPR, tous les arguments sont 
evalues (de gauche a droite), puis les valeurs des arguments sont 
Liees une a une (et de gauche a droite) avec les parametres  formels 
de la fonction. S'il y a plus de valeurs que de parametres formels, 
les valeurs restantes sont ignorees. S'il y a plus de parametres 
que de valeurs, ceux-ci sont alors lies par defaut a la valeur NIL, 
et font ainsi office de variables locales. | 

А la suite de quoi le corps de la fonction est evalue. 


EX : : | 
(DE РОО (X Y) [X YD 
(FOO CADD1 1) 5081 1)) -> (2 0) 


2.2.2 LES NEXPRs 


A L'appel d'une fonction de type NEXPR, tous les arguments sont 
evalues (de gauche a droite), puis Les vateurs des arguments sont 
rassemblees en une tiste qui est liee avec l'unique parametre formel 
de la fonction. | 

A la suite de quoi le corps de Le fonction est evalue. 


EX : 
(DE FOO X (REVERSE X)) 
(FOG (ADD1 1) (SUB? 1)) -> (02 
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2.2.3 LES FEXPRs 


A l'appel d’une fonction de type FEXPR, aucun des arguments n'est 
evalue. Le СОВ de l'appel est Lie au premier parametre formel de Le 
fonction. Les autres parametres formels (s'il y en a) seront lies a 
NIL et feront ainsi office de variables locales. 

A la suite de quoi le corps de fonction est evalue. 


EX : 
(DF FOO (X Y 2 [X Y 21) 
(ЕСО (CADD1 1) (SUBl 1)) 


(((ADD1 1) (SUBI 12) NIL NIL) 


2.2.4 LES MACROs 


L'interprete VLISP 16 reconnait Le type MACRO. Une macro est un 
atome qui possede sur sa P-liste une lambda-expression sous 
L' indicateur MACRO. 

À i'evaluation d'un appel dont le CAR est une macro, EVAL lancera 
d'abord la fonction associee a cette macro, avec l'appel comme 
argument, puis re-evaluera la valeur retournee de cette premiere 
evaluation.  L'evaluation d'une macro se fait donc en deux temps. 
Cette evaluation est nommee macro-generation. 

C'est l'appel de la macro tout entier qui est passe en argument, il 
est donc possible de modifier physiquement cet appel a la premiere 
evaluation de la macro. 

Ces MACROs ne doivent pas etre confondues avec les macro-caracteres 
d'entree (MCHAR) qui ne sont actifs que pendant les lectures. 


EX : 
De nouvettes structures de controle peuvent ainsi etre 
def lnies par macro-generat ion. 
Voici ia structure REPEATHHILE : 


(REPEATUHILE «sl» ... «sN» <s-test>) 
qui evalue en sequence «si» ... «sN» tant que la valeur 
de la derniere expression <s-test> est differente de NIL 
avec le test en fin de sequence. | 


(DM REPEATUHILE (CALL) (RPLACB CALL ` 
['HHILE (CONS. 'PROGN (CDR CALL)21)) 
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2.3 FONCTIONS DE DEFINITION 


La definition de fonction est effectuee par modification physique de 
P-Liste d'atome. 


(DE «a» «la» «sl» ... «sN») ÍFSUBR] 


definit une fonction de type EXPR avec : 
<a> (atome Literal), comme nom de 1а fonction. 
«la» (atome literal ou Liste), comme argument(s) de 
{а fonction. 
«sl» ... «sN», comme corps de la fonction. 
DE ramene «a» en valeur et est equivalent a : 
(PUT '«a» (LAMBDA «la» «si» ... <sN>) EXPR). 


(DF «a» «la» «si»... «sN») IFSUBRI 


nens a DE, mais la foncticn ainsi definie est du type 
DF ramene <a> en valeur et est equivalent a : 
(PUT "<a> (LAMBDA «la» «si» ... <sN>) FEXPR). 


(DM «a» «la» «si» ... <sN>) [FSUBR] 


equivalent а DF et DE, mais ta fonction ainsi definie est du 
type MACRO. 

DM ramene «a» en valeur et est equivalent a : 

(PUT '«a» (LAMBDA «la» «si» ... <sN>) MACRO). 


Ii va dé soi qu'on peut re-definir une fonction deja definie (de 
meme qu'une fonction standard). 


EXEMPLE : 
? (DE FOO (X) (BAR (REVERSE X))) 
? (DE FOO (X Y) (BAR (REVERSE Y) (REVERSE X))) 


Notez que si une fonction d'un type (EXPR, FEXPR, MACRO) est 
redefinie sous un autre type, c'est la premiere definition qui 
demeurera connue de U interprete. La ou les definitions suivantes 
ne sont cependant pas perdues et sont toujours sur la P-tiste de 
l’atome-nom de la fonction. 
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CHAPITRE 3 
LES FONCTIONS STANDARD 


3.1 LES FONCTIONS INTERPRETE 
(EVAL «s») [SUBR a 1 argument] 


C'est la fonction principale de L’interprete. EYAL remene [а 
valeur de l'evaluation de l'argument «s». 


ex : (EVAL ° (ADD1 55)) FF 56 


(APPLY «fn» <l>) (SUBR a 2 arguments] 


ramene la valeur de l'application de ia fonction «fn» a la 
Liste d'arguments <l>. 


ex : (APPLY "PLUS [5 (А001 8) (REM 10 21) F 15 


(EVLIS <l>) ISUBR a 1 argument] 


ramene une liste composee des valeurs des evaluations de tous 
les elements de la liste «t». 


ex : (SETQ L ' (KADD1 5) (ADDi 7) (А001 9))) 
FF ((ADD1 5) (А001 7) (ADD1 9)) 
(EVLISU FF (6810 


(EPROGN <1>) [SUBR a 1 argument] 


evalue tous les elements de la Liste <l>. EPROGN ramene еп 
valeur la valeur de la derniere evaluation (i.e. celle du 
dernier element de <i>). 


ex : (SETQ L *((PRIN1 1) (PRINI 2) (PRIN1 3))) 
"C pe = ((PRINI 1) (PRINI 2) (PRINI 3)) 
(EPROGN L) 123 D> 3 
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(PROGN «si» ...  «sN») I[FSUBR] 


evalue les differentes expressions «sl» ... «sN».  PROGN ramene 
la valeur de la derniere evaluation (i.e. celle de <sN>). 


ex : (PROGN (PRIN1 1) (PRIN1 2) (PRINI 3) 123 F 3 


(QUOTE <s>) (FSUBRI 


ramene la S-expression «s» non-evaluee. Cette fonction est 
utilisee comme argument de fonctions de type SUBR dont on ne 
desire pas evaluer les arguments. IL existe un macro-caractere 
standard qui facilite cette ecriture, la caractere quote 
(L’apostrophe) * . 


ex : (QUOTE (А001 4)) x» (А001 4) 
' (A (B C)) r> (А (B C)) 
А Ww А 
UA E ¿(QUOTE А) 


(LAMBDA «s» «sl» ... <sN>) IFSUBR] 


ta valeur d'une forme LAMBDA est cette forme elle-meme. Cette 
nouvelle fonction a ete rajoutee pour eviter de "quoter" les 
Lambda-expressions explicites des fonctionnelles. 


ex : (LAMBDA OO X) I^ (LAMBDA (X) X) 
(МАРС '(A B C) (LAMBDA (X) (PRIN1 DD ABC > NIL 
( (LAMBDA OO (X X)) (LAMBDA (X) (X X))) 
-> 
bouc te 
mais 


( (LAMBDA (X) [X [QUOTE X11) (LAMBDA OO IX [QUOTE X115) 


-> 
( (LAMBDA (X) [X IQUOTE XJI) (LAMBDA OO [X [QUOTE X115) 
ne boucle pas 


Une interessante application de cette possiblilite 
est la fameuse fonction : 


(DE LIT (L E F) 
(IF = (F (NEXTL L) (LIT L E F)). 
)) 


LIT permet d'ecrire des definitions tres elegantes 
et concises. 


(APPEND X Y) = (LIT X Y ?CONS) 


(MAPCAR L F) = (LIT L NIL 
(LAMBDA (X Y) (CONS (F X) Y))) 
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(POUERSET 'i^ B C 
г (AB C) ¿A B) (A С) (A) (B C) (B) (C) OD 


ec 
(DE POHERSET (L) 
(LIT L [NIL] 
(LAMBDA (A B) 
(LIT B B 
(LAMBDA (C D) (CONS (CONS А С) 0)))))) 


ussi 
(PROCAR * (C(A B) (C D E) Œ 6» 
FF (ACH (A C G) ADF)... Œ E OD» 


c 
(DE PROCAR (L) 
(LIT L [NIL] 
(LAMBDA (A B) 


av 


ave 


: (LIT A NIL 
(LAMBDA (C D) 
(LIT B D 
(LAMBDA (E F) 
(CONS (CONS C E) F)))))))) 
(SELF «s1» ... <sN>) [SUBR а N arguments] 


appelle la derniere Lambda-expression dynamiquement active avec 
«sl» ... «sN» pour arguments. Cette fonction permet de 
resoudre ie probleme des anciennes fonctions LABEL sans avoir a 
nommer = obligatoirement les Lambda-expressions explicites 
recursives. 


ex : ((LAMBDA (L) 
(IF (NULL (CDR L?) 
(CAR L) 
(SELF (CDR LI?) 
"(4 B C D)) 
D 


(DE Dope (L) 
(IF L 
(LET CO (NEXTEL L2) CL. (SELF L))) 
(IF (OR (NULL L) (LE X (CAR L))) 
(CONS X L) 
(CONS (NEXTL L) (SELF X L)))))) 


(TRI-INSERTION (8534 2 31D. x 023345) 
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(LET ((«atl» <sl>) ...  («atN» <sN>)) , <l>) [MACRO] 


evalue les «sl» ... «sn» dans l’environnement de l'appelant, 
puis lie «sl» a la variable «ati» etc..., et dans ce nouvel 
environnement evalue sequentiellement іа Liste d'expressions 
< l>. 


LET est equivalente a 
((LAMBDA («atl» ... <atN>) . <{>) «sl» ... «sN») 


Le premier des exemples precedents illustrant le SELF s'ecrira 
ici 
(LET ((L ' (À B C D») 
(IF (CDR L) (SELF (CDR L)) (CAR L))) 


Pour calculer les nombres de Fibonacci en temps lineaire : 


(DE FIB-LIN (N) 
(IF (< N 2 1 
(LET ((N N) (L '(1 1))) (COND 
((CDDR L) (IF (= N 2) (CADDR L) 
(SELF (1- N) (CDR L)))) 

((= N 2) (CADR (RFLACD (CDR L) 
[(+ (CAR L) (CADR L)))))) 

(T (SELF (1- N) (RPLACD (CDR L) 
[C+ (CAR L) (CADR L))1))))))) 


Faites donc un Pretty-Print de FIB-LIN, apres l'appel (FIB-LIN 10). 


L'idee de cette superbe fonction est due a John Mc Carthy. 
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3.2 LES PREDICATS DE BASE 
3.2.1 Tests Sur Les Types 
(АТОМ <s>) [5088 а 1 argument] 
teste si «s» est un atome, i.e. un atome titeral, ou un 
nombre. ATOM ramene T si ce test est verifie, NIL dans ie cas 
contraire. 
ex : (ATOM 'ARGHD œŒ T 
т? T 
(АТОМ °’ (A BD) FF NIL 
(ATOM NIL) kr T 
(LISTP <s>) [SUBR a 1 argumenti 


teste si «s» est une liste. LISTP ramene T si Le test est 
verifie et NIL dans !e cas contraire. 


ex : (LISTP * ARGH) E NIL 


(LISTP 44) E NIL 
(LISTP ° (A B) Lr T 
(LISTP NIL) E NIL 


(NULL <s>) ISUBR a 1 argument] 


teste si «s» est egal a NIL. NULL ramene T si Le test est 
verifie et NIL dans te cas contraire. 


ех: (NULL NIL) FF T 
(NULL T) ES NIL 

(NULL) E T 

(NOT <s>) [SUBR а 1 argument] 


cette fonction est identique a NULL. 


3.2.2 Les Comparaisons 
(EQ «si» <s2>) [SUBR a 2 arguments] 
sert a tester 2 atomes (de n'importe quel type : atome 


Literal, nombre). EQ ramene Т si les 2 atomes «sl» et <s2> 
с sont egaux et NIL s'ils ne le sont pas. 
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А MM 


Rappellons que : 
- 2 atomes literaux sont egaux s'ils ont le meme nom externe 
- 2 nombres sont egaux s'ils ont la meme valeur. 


Si esl» et «s2» sont des listes, EQ teste si «sl» et «s2» ont 
le meme adresse physique (l’auteur est totalement conscient du 
NON SEQUITUR de cette specification). 


ex : (EQ "A (CAR ' (A))) CT 
(EQ (ADD1 119 120 . KF 7T 
(EQ '(A B) "А BD FF NIL 
(EQ) r T 


(NEQ «si» <s2>) [SUBR a 2 arguments] 
est equivalent a (NOT (EQ «sl» <s2>)). 


(EQUAL «sl» <s2>) [SUBR a 2 arguments] 


est La fonction de comparaison la plus generale. EQUAL teste 
si «si» et «s2» ont la meme structure. Si le test est verifie, 
EQUAL ramene T et dans le cas contraire EQUAL ramene NIL. 


ex : (EQUAL '(A (B. C) D) "А (B. O DO F T 


Un tres vieux generateur de permutations 
en ordre lexicographique : 


(P '(A B C» 
r ((A B C) (A C B) ВСА) (BA C) (CA B) (CB AD 


avec 


(DE P (X) 
(IF (NULL X) [D] 
(F X))) 


(DE F (L) 
(APPEND (MAPCAR (P (CDR L)) 
(LAMBDA (X) (CONS (CAR L) X))) 
(LET «(Y (APPEND (CDR L) I(CAR L)1))) 
(IF (EQUAL X Y) NIL 
(F Y))))) 


ATTENTION : | 

Dans Le cas de 2 listes, EQ teste si celles-ci ont la meme 
ADRESSE d'implantation en memoire (i.e. s'il s'agit bien du 
MEME objet). En revanche EQUAL teste si Îles 2 tistes sont 
structuralement identiques, meme a etre üimplantees a des 
edresses distinctes. 
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sa 


(SORT «al» <a2>) ISUBR a 2 arguments] 


ramene T si te P-name de «al» est plus petit ou egal 
(lexicographiquement) au P-name de «a2», sinon ramene NIL. 
Cette foncion est  utilisee pour realiser des tris 
alphabet iques. 


ex : (SORT "A "Ai wP Т 
(SORT 'B А) E NIL 
(SORT "A "BE E T 
(SORT 'ZZZ 'ZZZZ) FF T 
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3.3 LES FONCTIONS DE CONTROLE 
3.3.1 Les Fonctions De Controte De Base 
(OR «si» ... <sN>) IFSUBR] 


evalue successivement les differentes expressions «sl» ... <sN> 
Jusqu'a ce que l'une de ces evaluations ait une valeur 
differente de NIL. OR ramene cette valeur. OR permet de 
construire une structure de controle de type : i 


$i non «sl» alors si non <s2> alors ... sinon «sN» fsi 


ex: (OR NIL NIL 23) pF 2 
(OR) E NIL 


(AND «si» ... <sN>) IFSUBH] 


evalue successivement les differentes expressions 
«si» ... «sN». Si la valeur d'une de ces evaluations est egale 
a NIL, AND ramene NIL sinon AND ramene la valeur de la derniere 
evaluation «sN». AND permet de construire une structure de 
controle de type : 


si «sl» alors si «s2» alors ... sinon «sN» fsi 
ex : (AND123 4) E 4 
(AND 1 2 O 4) E? NIL 
(AND) ES NIL 
AND et OR sont iteratifs au sens de VLISP 
ex : Pour savoir si l'atome X a une occurence dans L 
(DE SEARCH (X L) 
(OR (AND (ATOM L) (EQ X L)) 
(AND (LISTP L) (SEARCH X (NEXTL L))) 


(AND (LISTP L) (SEARCH X L)))) 
L'appel (SEARCH X L) 


est iteratif. 
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(IF «sl» «s2» <53> ... <sN>) IFSUBRI 
si la valeur de l'evaluation de <51> est differente de NIL, IF 
ramene іа valeur de l’evaluation de l'expression «s2», sinon IF 
evalue en sequence les expressions <s3> ... <sN> et remene la 
valeur de la derniere evaluation <sN>. IF permet de construire 
une structure de controle de type : 
si «sl» alors <s2> sinon «s3»; ... ;«sN» fsi 
ех: (IF T 1 2 3) g 1 
(IF NIL123 F 3 


(DE ACK (X Y) 


` (IF (= X 0) (1+ Y) 
(ACK (1- X) 
(IF (= Y 0) 1 


(ACK X (ü1- Y)))))) 


(COND «11» ... <1М>) [FSUBR] 


est l'instruction conditionnelle la plus generale. Les 
differents arguments <li> ... «lN» sont des listes appeliees 
cleuses qui ont la structure suivante : 


(<ss> «sl» ... <5№) 


COND va choisir une seule de ces clauses : celle dont 
L'evaluation de son premier element «ss» est differente de NIL. 
COND evelue alors tes differentes expressions «si» ... «sN» et 
ramene Le valeur de ta derniere evaluation <sN>. Si la clause 
choisie n'a qu'un element «ss», COND ramene la valeur de 
L'evaluation de «ss» (i.e. la valeur qui a declenche la 
selection de cette clause). COND permet de construire des 
structures de controle de type : 


si ... alors ... sinon si ... alors ... see fsi 


Si aucune clause n'est choisie, COND ramene NIL. 
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Airs. 


(COND 
(pi eil е12 e13) 
(p2 e21 e22) 
{р3) 


(på e41)) 
sers considere comme equivalent a : 


(COND 
(рі (PROGN ell s12 el13)) 
(p2 (PROGN е21 е22)) 
((SETQ aux p3) aux) 
(pó e41) 
(T М) 


EXEMPLES : 
(COND (NIL 12 (T3450 x 5 
(COND ¿(LT 5 4) 'F00) (NULL "Ai *BAR)) FF NIL 


(COND ((ZEROP X) 'ZERO) 
((ODDP X) 'IMPAIRD 
((EVENP X> 'PAIR) 
(T 'Hhat?!?)) 


(SELECTQ «s» <li> ... <tN> «tf») [FSUBR] 


comme pour la fonction COND, SELECTQ va choisir une des clauses 
«l1» ... INS, Le selecteur de ces clauses est la valeur de 
l’evaluation de «s», la selection s'effectue par comparaison du 
selecteur avec le CAR (non evalue) de la clause qui doit etre 
un atome (en utilisant le predicat EQ). 

Des qu'une clause est choisie, SELECTQ evalue le reste de la 
clause et ramene la valeur de La derniere evaluat ion. 

Si aucune des clauses «ll» ... «IN» n'est choisie, SELECTQ 
evalue automatiquement іа derniere clause «lf» et ramene la 
valeur de (PROGN . «<lf>). SELECTQ permet donc de construire 
des aiguillages sur valeurs constantes. | 


ex 3 (SELECTQ 'ROUGE 
(VERT *ESPOIR) 
(ROUGE "Dei 
OCNONND — 
OK 


E 

(SELECTA 'BLANC 
(VERT 'ESPOIR) 
(BLEU ОК) 
C NON) 2 

E NON 
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(WHILE «s» «si» ... <sN>) IFSUBR] 


tant cue la valeur de l'evaluation du test «s» est differente 
de NIL, WHILE va evaluer en sequence les differentes 
expressions «sl» ... «sN». WHILE ramene toujours NIL en valeur 
(qui est la derniere evaluation de «s» qui fait sortir de la 
boucle WHILE). Cette fonction permet de construire des boucles 
conditionnelles d'une maniere fort commode, ainsi que des 
boucles infinies en utilisant ia forme : (WHILE Т... A, 


ex : (SETQ L ' (ABC D) x» (ABCD 
(WHILE L (PRINI (NEXTL L))) AB CD CG NIL 


La forme (REPEATUNTIL «sl» ... «sN» <s>) avec le test «s» a la 
fin se definira comme : 


(DM REPEATUNTIL (CALL) (RPLACB CALL 
[WHILE (CONS ‘NOT (CONS 'PROGN (CDR CALL)))3)) 


(WHILE «test» «sl» ... <sN>) 
est equivalent a 


(LET O (COND (<test> «sl» ... «sN» (SELF)))) 


3.3.2 Les Fonctions Ü'echappement 
(LESCAPE «s1» ... <sN>) (FSUBR] 


evalue les differentes expressions «sl» ... «sN» en sequence et 
ramene la valeur de la derniere evaluation «sN». Пе plus 
LESCAPE fait sortir de іа derniere  Lenbda-expression active 
(fonction utilisateur ou lambda-expression explicite) avec pour 
valeur ia valeur de «sN». 


ex : (LET ((X 3) (Y NIL)) 
(WHILE T 
(IF (ZEROP X) (LESCAPE Y) 
(SETQ Y (CONS X Y) X (5081 X))))) 
xr (1 2 3) | 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 39 / 130 


Page 3-12 Le Système VLISP 16 


dubi U, ب‎ eege 


(ESCAPE «et» «sl» ... <sN>) [FSUBR] 


est la fonction de controle la plus puissante compatible avec 
ta structure recursive de VLISP. «at» est un atome literal qui 
devient Le nom d'une fonction d’ echappement, puis tes 
differentes expressions <si> ... <sN> sont  evaluees en 
sequence. Si au cours de ces evaluations une forme de type 
(<at> «ssl» ... <ssN>) est rencontres, Les differentes 
expressions «ssl» ... «ssN» sont evaluees et ESCAPE ramene la 
valeur de la derniere evaluation (i.e. celle de <ssN>). Si 
une telle forme n'est pas rencontres, ESCAPE ramene la valeur 
de lL’ evaluation de <sN>. | 


ex : (ESCAPE EXIT 
` (МАРС °’ (A B 2 С) 
(LAMBDA (X) (AND (NUMBP X) (EXIT '0U1)))) 
"ЧЮ = mE 1 | 
pr OUI 


Pour ceux qui aiment, il est tres facile 
d'exprimer avec ESCAPE les constructions 


A (CATCH «x» «une-etiquette») 
e 
(THROW «y» <la-meme-etiquette>) 


(DM CATCH (CALL) (RPLACB CALL 
ESCAPE (CADDR CALL) (CADR CALL?1)) 


(DM THROW (CALL) (RPLACB CALL 
[(CADOR CALL) (CADR CALL)3)) 


par 


Impossible en rəvanche_d’expr imer ESCAPE 
en termes de CATCH et THRON. 


3.3.3 Les Fonctions De Controle Be Type PROG 


Ce type de structure de controle permet a l'usager conservateur 
d'ecrire des sequences VLISP sans structure, vertu nocturne par tagee 
avec certains autres largages. 

On peut se “brancher a des etiquettes" (fonctions 60 et GOTO) et 


sortir d'un регро de PROG comme en FORTRAN (avec la fonction 


eternelle : ` e | | 

Ce type de structure de controle a ete conserve dans ип souci de 
compatibilite avec certains autres systemes LISP qui ne possedent 
que ce type de structure de controle, Les fonctions d' echappement 
des systemes VLISP etant a la fois plus puissantes et pius rapides s 
L' interpretation. 
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(PROG <l> «sl» ... <sN>) IFSUBR] 


<l> est une Liste d'atomes Literaux qui servent de variables 
Locales dans la portee du PROG. Elles sont liees a la valeur 
NIL е l'entree du PROG et restaurees a leurs anciennes valeurs 
eu retour du PROG. Cette protection des variables locales ne 
porte que sur leurs C-valeurs. Cette liste de variables 
Locales peut etre vide mais ne peut pes etre omise. 
<si> ... «sN» est une tiste d'expressions qui sont svaluees еп 
sequence. Si dans cette liste se trouvent des atomes, ils sont 
consideres comme des etiquettes et ne sont donc pas evalues. 
La valeur d'un PROG, s'il n'est pas interrompu par un RETURN, 
est la valeur de l'evaluation de «sN» (qui ne doit PAS etre une 
etiquette). 


(GO <a>) [FSUBR] 
«a» est un atome literal et doit etre Le nom d'une etiquette 
existante du dernier PROG actif. — L'evaluation de la forme 
(GO <a>) fait reprendre l’evaluation a la forme qui suit 
l'etiquette «a». | 
(GOTO <s>) [SUBR a 1 argument) 
est identique a la fonction GO mais l'argument «s» est evalue 


et doit ramener un atome en valeur sous peine de declencher 
l'erreur A6. 


(RETURN <s>) [SUBR a 1 argument] 


sort du PROG actif. La valeur du PROG est celle de 
l’evatuetion de <s>. 


[vi 
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3.3.4 Les Fonctionnelles 

Toutes ces fonctions scent de type SUBR et utilisent des fonctions 
«fn» en argument. Ces fonctions doivent etre de type SUBR ou EXPR 
mais seuls leurs premiers arguments seront Lies a des objets 
variabies, tous les autres seront lies a Nice 

(MAPxxx <l> <fn>) [SUBR a 2 arguments] 


Elles permettent d'appliquer la fonction «fn» sur certaines 
composantes de la liste «i»... 


— — n чы = کے ^ سے‎ чи ыа کے‎ A s... سے‎ < op — ha ........ . "ER чыз = = کے — کے — سے‎ — — uo чу» чи ч کے‎ eer да mm سے‎ fe ым E STE 


| applique la fonction <fn> sur : | remene en valeur | 
| <l> puis sur | tes CAR | <i> puis sur j 
| ses CDR successifs | toutes ses | 
successifs | de <l> sous-structures | 
| | | 
MAP | MAPC NIL 
| La Liste des valeurs 
| MAPCAR de toutes les 
| applications 
| l La liste des valeurs | 
differentes de NIL 
de toutes Les 
| | applications 


emma m J... am um em чы کے‎ «ч m чн» df کے‎ ur See mm durs ai җит um cdi س‎ m йш Ф m e 


Brecht (B C) D) 'PRIND 
(B C) 

D 

Er NL 


` (MAPCAR п 2 3 а) (LAMBDA (X) (+ X 5))) 
m 6789 j | 
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3.4 LES FONCTIONS DE RECHERCHE 
3.4.1 Les Recherches Sur Des Objets LISP 
(CAR <s>) [SUBR e 1 argument] 
si «s» est un atome Literal, ramene sa C-valeur. 


Si «s» est une liste, ramene son premier element. - 
Le CAR d'un nombre est indetermine. 


۴ ex : {CAR ' (A B C)) CS À 
(SETQ VA ° (О Pi) CS (U P) 
(CAR 'VA) EF (U P> 

(CAR VA) we U 


(CDR <s>) (SUBR a 1 argument] 


si «s» est un atome literal, ramene sa P-liste. 

si «s» est une liste, ramene cette liste sans son premier 
element. 

Le COR d'un nombre est indetermine. 


ex : (CDR ' (A B C)) x (B C) 
(PUT "VA '(U P) 'DD FF VA 
(CDR 'VA) p^" (I ¿U P)) 


(C...R <s>) [SUBR a 1 argument] 


les 14 combinaisons de CAR et de CDR  imbriques sont 
disponibles. 

(CADR <s>) est equivalent a (CAR (CDR «s»)) 

(CDAAR <s>) est equivalent а (CDR (CAR (CAR <s>))) 

(CADDR <s>) est equivalent a (CAR (CDR (CDR <s>))) 


ex: (DE FOO (L) 
(IF (CDR L) (LET ((L (CADR L?) (R [(CAR 1277) 
(IF (CDR L) 
(SELF (CADR L) IR (CAR L)1) 
(CONS R L))) 


Li) 
(FOO ° (A)) Em (A) ` 
(FOO "A (B))) E СА) B) 


, | (FOO *(A (B gp (СА) B) O) 


у 
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(МЕМО «a» <1>) [SUBR a 2 arguments] 


si l'atome «a» est un element de la liste <l>, ramene {а partie 
de la liste «l» commencant a l'atome «e», sinon ramene NIL. 
Cette fonction utilise le predicat EQ pour tester la presence 
de l'atome «a» dans la Liste. 


Si «a» est une liste, MEMQ teste si «a» est un CAR de <i>. 


ex + (МЕМО °С ' (ABC XY) H (C (X Y» 
(МЕМО РҮ (АВС XY) H NIL 


Nous laisserons au lecteur Le soin d'etablir 
l'intention de la fonction suivante : 


(DE SKE (L) 
(LET ((L L) (R NIL)) (COND 
((ATOM L) NIL) 
((MEMQ L R) T) 
(T (OR (SELF (CAR L) (CONS L R)) 
(SELF (CDR L) (CONS L R))))))) 


(MEMBER «s» <l>) [SUBR a 2 arguments] 
si l'expression quelconque <s> est un element de la liste <l>, 
ramens la partie de «l» commencant a l'expression <s>, sinon 


ramene NIL. Cette fonction est identique a La fonction MEMQ 
mais utilise le predicat EQUAL. 


ex : (MEMBER '(B С) "(A (B Суу (B С) D) FF (800 


(LENGTH <l>) ISUBR a 1 argument] 
ramene le nombre d’etements de la liste <l>. 


ex : (LENGTH ° (А (BO DD H 3 
(LENGTH NIL) p 0 


(NTH «n» <i>) [SUBR а 2 arguments] 


ramene la partie de la Liste <l> commencant а Son <n> teme. 
element (i.e. ‘son <n>-1 eme CDR). Si (LENGTH «i» est 

inferieure а «n», NTH ramene NIL. Si <n> <= 1, NTH ramene «i» 
en entier. | | 


ех: (NTH 3 ''ABCO ED P (C D E) 
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3.5 FONCTIONS DE CREATION DE LISTES ЕТ D'ATOMES 
(CONS «si» <s2>) [SUBR а 2 arguments] ` 


construit une liste doni le premier element est «sl» et le 


reste la Liste <52>. Si «s2» est un atome, CONS produit La 
paire pointee (<si> . «:2»). 
ex : (CONS u^ e C») E (A B C) 

(CONS 1 rm 0.2 

(CONS d XF (А) 

(CONS) E (NIL) 


On notera que CONS peut etre defini avec LIST et APPEND comme 
(CONS x у) = (APPEND [x] y) 


(MCONS <51> «s2» ... <sN>) [SUBR а N arguments] 


permet Le CONS multiple. 
L'appel 


(MCONS «s1» <s2> ... «sN-1» <sN>) 
correspond a 


(CONS «si» (CONS «s2» ... (CONS «sN-1» «sN») ... )) 


ex : (MCONS 'A 'B °C) > (AB, С) 
Si MCONS etait une macro elle sereit definie comme : 
(DM MCONS (CALL) 
(AND (CDDDR CALL) 
(RPLACD CALL 
[(CADR CALL) 


(CONS 'MCONS (CDDR CALL))1)) 
(RPLACA CALL ? CONS) ) 


(LIST «sl» ... <sN>) (ИВА a N arguments] 


гапепе la liste des valeurs des differentes expressions : 


«si» ... <sN> 
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En termes de CONS. l'appel 
(LIST «si» «s2» ... <sN>) 
est equivalent a 
(CONS «sl» (CONS «s2» ... (CONS «sN» NIL) ...)) 


Il existe une ecriture abregee de la fonction LIST qui utilise 
Les macros-caracteres dits crochets carres : 


[<s1> ... <sN>] 


C'est l'ecriture generalement adoptee 
dans ce manuel. 


ex : (LIST "A °В °С) xP (ABO 
(LIST 45 (ADDI X) L) 


° [65 (ADD1 X) L1. FF 
(LIST) E NIL 
С] E (NIL) 


(SUBST <sl> «at» <i>) [SUBR a 3 arguments] 


fabrique une nouvelle copie de toute la liste «l» en 
substituant a l'atome «at» l'expression «sl» a chacune de ses 


occurences. 


ex : (SUBST '(A В) °С '(C (DE) (C (A B)))) 
pF ((AB) (O E) ((AB (ABD 


Pour effectuer une recopie de TOUS les niveaux 
de la Liste L faire : 


(SUBST O O L) 


Pour effectuer une copie du seul premier niveau 
de la liste L faire : 


(APPEND L) 


Pour n'effectuer que les copies necessaires, 
redef iniesez SUBST ainsi : | 


` ` (DE SUBST (X Y E) | 
(IF (ATOM Е) (IF (EQ E Y) X E) 
(LET (EI (SUBST X Y (CAR E))) 
(E2 (SUBST X Y (CDR Е)))) 
(IF (AND (EQ El (CAR ED) (EQ E2 (COR E22) 


E 
(CONS El E2))))) 
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Enfin, pour faire une copie d'une liste cyclique 
Ou par tagee : 


(DE FCOPY (L ;; D) 
(LET (CL L) (NEWD) (COND 
( (ATOM L) L) 
((CASSQ L D)) 
(T (SETQ NEW [NIL] D «CONS (CONS L NEW) D)) 
(RPLACD (RPLACA NEN (SELF (NEXTL L))) 
(SELF L)))))) 


(OBLIST) (SUBR a 0 argument] 


ramene la liste de tous les atomes Lliteraux crees au cours 
d'une session. 


(GENSYM) ISUBR a 0 argument] ramene a cheque appel un NOUVEL atome 
de la forme : Gnnnn, dans laquelle Les «n» sont des chiffres 


decimaux. 

ex : (GENSYM) x» G0001 (au premier appel) 
кы œŒ 60002 (a l'appel suivant) 
eic ée e 


(STATUS B <code-ascii>) [SUBR a 2 arguments] 


permet de creer des atomes  mono-ceractere ni imprimables ni 
introductibles sous EDITI16. 


ex : (STATUS 6 000CHHD E  control-L 
? (SETQ BELL (STATUS 6 0087HH)) 
>beep< 
? BELL 
>beep< 


(REVERSE «sl» <s2>) [SUBR a 2 arguments] 


f . ` ramene une copie inversee du premier niveau de la liste «si». 
" И с E. deuxieme argument est fourni, cette copie est NCONCee au 


| ergument l'appet correspond donc a 
Kee (REVERSE «s1») 482»). a ` 
ex : (REVERSE (A (B С) 0)) CS (D (B C) A) 


(REVERSE '((X Y) (U Р)) ' (6 0)) E (UP (X Y) G O) 
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E EE 

Pour inverser physiquement une Liste : 
(DE FREVERSE (L ;; R) 

(IF ` EIE (CDR L) (RPLACD L 6) 
REVERSE en VLISP 16 n'est PAS implemente ainsi : 
(DE REV (L) 

(IF (NULL (CDR L)) L 

(CONS (CAR (REV (CDR L))) 


(REY (CONS (САВ L) 
(REV (CDR (REV (CDR L))))))))) 


(APPEND <l> <s>) [SUBR a 2 arguments] 


ramene la concatenation d'une copie du premier niveau de la 


Liste <l> a l'expression <s>. ¿ «s» n'est pas fourni, 
TES <l>) ramene simplement une copie du premier niveau de 
<{>. ` 
ex : (APPEND ’ (A B C) E (ABO 

(APPEND °’ (A B С) ' (X Y» E (ABCX Y) 

(APPEND ° (A B C) "Di xr (ABC. D) 


APPEND est naturellement associative : 
(APPEND x (APPEND y z)) = (APPEND (APPEND x у) z) 


Cette propriete est aisement demontrabile grace au programme CAN 
de Daniel GOOSSENS. 
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On notera egalement que : 


(REVERSE (APPEND x vii = (APPEND (REVERSE y) (REVERSE 50) 


ainsi que 

(REVERSE (REVERSE x)) = x 

ainsi que . 

(APPEND x y) = (REVERSE (REVERSE x NIL) y? 


C'est sur cette derniere propriete qu'est 
fondee la definition iterative d' APPEND ; 


(DE APPEND (X Y) 
(LET (ХХ) (Y Y) (R NIL)) (COND 
(X (SELF (CDR X) Y (CONS (CAR X) R))) 
i 55 X (CONS (CAR R) Y) (CDR R))) 


(DELETE «s» <i>) [SUBR a 2 arguments] 
ramene une copie du premier niveau de la Liste <l> dans 
laquelle toutes les occurences de l'expression «s» ont ete 


enlevees. Cette fonction utilise le predicat EQUAL. 
ex : (DELETE "(X Y) '(Z (X DU X Y) PD xP (Z U P) 
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3.6 LES FONCTIONS DE MODIFICATIONS 


Toutes les fonctions qui vont etre decrites doivent etre utilisees 
conformement eu mode d'emploi, pour eviter de placer le systeme dans 
un etat de confusion dramatique cer elles modifient physiquement les 
structures VLISP. 


D'une maniere generale il est tres vivement souhaite de ne pas 
modifier : | 

- les constantes symboliques de interprete (NIL T LAMBDA ...) et 
d’une maniere generale tous les atomes de l'interprete. 

= les nombres. 


Si cette recommendation n'est pas suivie, ies resultats seront 
terrifiants. | 


Pour ces fonctions L'argument «obj» represente soit un atome titeral 


scit une Liste. Modifier le CAR d'un atome revient a changer sa 
C-valeur, modifier son CDR revient a modifier sa P-liste. 


(RPLACA «obj» <s>) [SUBR a 2 arguments) 


remplace te CAR de «obj» par <s>, Pamene le nouvel «obj» еп 


valeur. 
ex : (SETQ X ' (A BD œ (AB 
(ВРІ АСА X ' (CD p. (c) 8) 


X i p ((C) B) 
(RPLACA ' (AB С) '(X VD) FF CX Y) B C) 
(RPLACD «obj» <s>) [SUBR a 2 arguments] 


remplace le CDR de «obj» par <s>. Ramene Le nouvel «obj» еп 
valeur. 


` ex : (RPLACD X 'E) p ((c). €) 
ARPLACD "(АВ C) ' X Y 2)) E (A X Y Z) 
La fonction C-REVERSE inverse la tiste circutaire L 
= (DE C-REVERSE (L) 


(AND L | 
(LET («C (CDR L)) (P L)) T | 
ПЕ (NEQ L C) (SELF (CDR C) (RPLACO C P2) 
(RPLACD L P) 


Р)))) 
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(RPLACB «obj» <l>) [SUBR а 2 arguments] 
remplace le CAR de «obj» par le CAR ce «l» et le CDR de «ob j> 
ar ie CDR de <l>. 
n VLISP 18, RPLACB peut etre definie comme : 


(DE RPLACB (0BJ L) 
(RPLACA (RPLACD OBJ (CDR L)) (CAR L))) 


ex : (SETQ L1 * (AB C) xk» (ABC) 
(SETQ 12 L1) ES (ABC) 
(RPLACB L1 ' (X Y)) ES (X Y? 
L2 ES (X Y) 
RPLACB est une fonction privilegiee pour la definition de 
MACROS 
ex : Consideree comme MACRO, LET est ainsl definie 


(DM LET (CALL) (RPLACB CALL 
(CONS (MCONS LAMBDA Hm (CADR CALL) 'CARD 


(CDDR C 
(MAPCAR (CADR CALL) 'CADR)))) 
De meme, INCR peut etre definie 
(DM INCR (CALL) (RPLACB CALL 
['SETQ (CADR CALL? ('ADD1 (CADR CALL)11)) 
(SET «obj» <s>) [SUBR a 2 arguments) 
remplace le CAR de «obj» par «s» . Ramene en valeur <s>. А 1 


valeur ramenee pres, (SET «obj» <s>) est equivalent a (PLACA 
«obj» <s>). * 


ex : (SETQ L '(A B C» K” (АВ С) 
L EB (AB CO 
(SET L * (X Y») EP (X Y) 
L E ((X Y) B C) 
۴ (SETQ À 1 X А) ЕРА 
| | А ES 1 
(SET X 2) r 2 
| p 2 
(SET L L) pe (CCCCCCCCCCCCC .., 


SET peut etre definie en terme de SETQ 
(DE SET (X Y) (EVAL ('SETQ X [QUOTE ҮЈ))) 
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(SETQ «atl» «si» .., «atN» «sN») IFSUBR] 


«ati» ... <atN> sont des atomes Literaux qui ne sont pas 
evalues; «sl» ... <sN> sont des expressions quelconques qui 
seront evaluees. SETQ est ta fonction d'affectation la pius 
utilisee : chaque atome <at> est affecte par l'expression 
correspondante <s>. SETQ ramene «sN» en valeur. 


ex : (SETQ L1 ' (A B OD) m (ABO 
(SETQ L2 L1) p" (ABO 
(SETQ X 1 Y (1+ WW) E 2 


SETQ peut etre definie en terme de SET 
(DF SETQ OO 
(LET ((VAR. (CAR X)) (VAL (EVAL (CADR 0020) 
(REST (CDDR 000) 
(SET VAR 


VAL) 
(ТЕ REST (EVAL (CONS 'SETQ REST) VAL) )) 


(NEXTL <at>) [FSUBRI 


«at» (qui n'est pas evalue) doit etre un atome Literal dont la 
valeur doit etre une liste. NEXTL ramene Le CAR de cette Liste 
en valeur et donne Comme nouvelle valeur de «at» le CDR de son 
encienne valeur. Cette fonction est tres utile pour avancer 
dans une liste qui est la valeur d'un atome. 


(SETQ X (NEXTL L)) 

sera donc equivalente a 

(SETQ X «CAR L) L (CDR LI) 
Cette fonction correspond en VLISP a : 


(DF NEXTL (V) (LET (VAR (CAR V)) (VAL (CAAR V))) 
(SET VAR (CDR VAL)) (CAR VAL))) 


ex : (SEIQA ' (X Y 2)) H (X Y Z) 
(NEXTL A) px 
A p (Y Z) 
(NEXTL A) wr v o 
A p (2) 
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(INCR <at>) [FSUBR] 


<at> (qui n'est pas evalue) doit etre un atome literal dont La 
veteur est un nombre entier. INCR ajoute 1 a ta valeur de «at» 
TT cete nouvelle valeur. Cette fonction correspond en 
L a : 


(SETQ «at» (А051 <at>)) 


ех: (SETQ X 2) r2 
GER X) ES S 


(DECR <at>) [FSUBR] 


«at» (qui n'est pas evalue) doit etre un atome literal dont la 
valeur est un nombre entier. DECR retranche 1 a la valeur de 
e Ino ENIM cete nouvelle valeur. Cette fonction correspond 
en a: 


(SETQ «at» (SUB1 <at>)) 
ex : (SETQ X 2 rm 3 
(DECR X) r 2 
т 2 
(NCONC «l1» <12>) [SUBR a 2 arguments] 
relie physiquement les deux listes <li> et «l2» (i.e. place 
dans le COR du dernier element de «ti» l'adresse de la Liste 


<t2>). NCONC ramene la nouvelle Liste «l1» en valeur. 


St «li» et <l2> sont les memes pointeurs physiques,  NCONC 
permet de construire des listes circulaires. 


ex : (SETQ L1 '(A BC) 1211) т T^ E C) 


(NCONC L1 ° (D E)) ЕР C D E) 
L2 ES (ABCDE) 
(NCONC L1 L1) FF (ABCDE 


(NCONCI <l> <s>) ISUBR a 2 arguments] 


est equivalent a (NCONC «i» [es>l). Cette fonction est tres 
utile pour placer des elements a la fin d'une liste. 


ex : (NCONCI "(А В C) 'D) xP (ABCD) 
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3.7 FONCTIONS SUR LES A-LISTES 


En VLISP 16 comme dans tous les VLISP, les A-tistes (les listes 
d'association) sont des listes de couples qui possedent la structure 
suivante : 


( (маг) . vall) (var2 . val2) сг (varN . valND) 


Chaque element est une liste dont Le CAR est une variable et le CDR 
une valeur. 


Pour toutes les fonctions qui vont etre decrites, l'argument «al» 
doit etre une Á-liste. 


3.7.1 Recherche Sur Les A-listes 
(ASSQ «a» <а1>) [SUBR a 2 arguments) 


ramene l'element de la A-Liste «el» dont іе CAR (la variable) 
est egal а l'atome «a», sinon ASSQ ramene NIL. Cette fonction 
utilise le predicet EQ. 


ex : (ASSQ 'B '((A) e 


)0 m (8.1) 
(ASSQ °С ° (CA 2) 


r (C D E) 


baud Eech 
ч w 
dN ^ч 
со с) 
OO 
mim 


(CASSQ «a» «al»? [SUBR е 2 arguments] 


est identique а ASSQ mais гатепе le CDR seul de l'element de la 
A-liste choisi. ATTENTION : aucun moyen de faire ta 
distinction entre la valeur NIL d'une variable et l'absence de 
cette variable dans la А-! іѕїе. 


ex : (CASSQ °С '((A) (B. D (C D Е))) FF (DE 
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3.8 FONCTIONS SUR LES P-LISTES 


En VLISP 16 comme dans tous tes VLISP, les P-Llistes (listes de 
proprietes) sont des listes qui ont la structure suivante : 


(indicl vall indic2 val2 ... indicN valN) 


A chaque indicateur est associe une valeur. Les recherches sur les 
P-Listes s'effectuent donc deux elements par deux elements. 


Les arguments de ces fonctions sont : 
«pl» - 8i «pl» est un atome literal, ia P-liste utilisee sera le CDR 
de l'atome. 
- Si «pl» est une liste, la P-liste utilisee sera cette Liste 
elle-meme. 


« ind» est un indicateur, atome Literat ou nombre, 


«pval» peut etre n'importe quelle expression. 


(GET «pl» <іпа>) [SUBR a 2 arguments] 


ramene la valeur associee а l'indicateur «ind» dans la P-liste 
«pl». Si l’indicateur n'existe pas, GET ramene NIL. 

ATTENTION : оп ne peut pas distinguer entre la valeur NIL 
есы ы avec un indicateur et l'absence de cet indicateur sur 
ta P-Liste. 


ex : (GET °(11 А I2 B) °12) к” B 


(PUT «pl» «pvai» <ind>) [SUBR а 3 arguments] 


si l'indicateur «ind» existe deja sur La P-liste «pl», sa 
valeur  .associee prend La nouvelle valeur «pval», sinon 
LU indicateur «ind» et sa valeur аѕѕосіее «pval» sont ajoutes en 
queue de «pl». PUT ramene «pl» en valeur. 


ex : (PUT '(11 A I2 B) 'C'IDD x» (Ii C I2 B 


Voici La definition sous forme de memo-fonction 
de la fonction РІВОМАССІ, telle qu'aucun appel 
de la fonction ne sera calcule plus. d'une fois, 
pour toute valeur de l'argument : 


(DE FIB (ND 
(QR (GET 'FIB N) ` 
(LAMBDA. (X) (PUT "EIB X N) X) 
ы (IF (< N 2 1 
(+ (SELF (- N 1)) (SELF (- N 2))))))) 
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(REMP «at» <ind>) [SUBR a 2 arguments] 


enleve de La P-liste «pl» 1° indicateur «ind» s’il existe ainsi 
que sa valeur аѕѕосіве. ВЕМР ramene «pl» en valeur. 


ex : Si ta P-tiste de t'atome FOO set 
(11 À 12 B) 


ators 
(REMP *F09 °12) x» FOO 
t 
(CDR ’F00) p^" (Ii A) 
SL 
. (REMP FOO 711) x FOO 
alors 
(CDR "EU E NIL 
enfin si 
(PUT *F00 * (Z) 26) FF FOO 
elors 
(CDR 'FOO) x (26 (2) 


En VLISP 16, REMP peut etre definie comme 


(DE REMP (AT IND) 
(LET ((AT AT)) (COND 
( (NULL. (CDR AT))) 
(ЕО (CADR АТ) IND) (RPLACD AT (CDODR AT))) 
md (SELF «CDDR AT))))) 
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VLISP 18 ne met en jeu que les nombres entiers. ` Ils devront etre 
inclus dans l'intervalle [-32767 , 327671. Cette restriction est 
due a La capacite mot de 16 bits du Solar. 

ATTENTION, aucun test de debordement n'est effectue. 


En representation decimale, un nombre negatif  debute par le 


caractere "-", mais un nombre positif NE DOIT PAS, sauf a perdre son 
d de nombre (i.e. devenir un literal), debuter par "+" (ITA 
) . 


Les nombres sont stockes das іа zone Liste et sont donc geres 
dynamiquement. 


Des nombres hexadecimaux peuvent etre utilises directement en 
entree, ils ont alors ta representation externe : 


ecc cHH 
tes "c" devant etre des chiffres hexadecimaux. 
Lors de l'impression de nombres, pour en obtenir une representation 


hexadec imale, evaluez (SETBIT 12) ` et pour revenir a Le 
representation decimale faites (CLRBIT 12) . 


4.1 LE TEST DE TYPE 
(NUMBP <s>) [SUBR a 1 argument] 
Cette fonction sert a tester si l'argument <s> est ou non un 


nombre. Si l'argument «s» est un nombre, NUMBP ramene «s» 
sinon NUMBP ramene NIL. | | AD 
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ex : (NUMBP (ADDi 67)) = 68 
(NUMBP -56) rr -56 
(NUMBP _ * Nan) r> NIL 
(NUMBP (CONS 1 2)) E? NIL 


&.2 ARITHMETIQUE ENTIERE 
Les fonctions qui vont etre decrites utilisent des operandes 
supposes de type entier. Ces fonctions n'effectuent aucun controle 
de validite de type. Si les arguments ne sont pas des nombres 
entiers, ces fonctions livrent en general d'horribles resultats 
(HORRESCO REFERENS. ..). | 
(ADDI <n>) [SUBR a 1 argument] 

ramene la valeur : «n» + Í . 

ех: (А001 6) KP 7 

(А001 -4) p -3 

(1+ <n>) [SUBR a 1 argument] 


identique a ADD1. 


(INCR <var>) [FSUBR] 
a le meme effet que 


(SETQ «var» (А001 <var>`) 


(DIFFER «n1» <n2>) (SUBR a 2 arguments] 
ramene la valeur : «ni» - «n2». 


ex : (DIFFER 6 -12 E 18 


(- «nl» «n2») [SUBR a 2 arguments] 
identique e DIFFER. 


(PLUS eni» ... «nN») ISUBR a N arguments] 
ramene la valeur : «nl» + «n2» +... + <п№. 


ex : (PLUS 5 6) p 11 
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(PLUS 5 6 4) E 15 
(PLUS -1) OÇ ~] 
(PLUS) E 0 


(+ «nl» ... «nN») ISUBR а N arguments) 
identique a PLUS. 


(QUO «ni» «n2») ISUBR a 2 arguments] 


ramene la valeur du quotient de : «ni» / «n2». 
ex : (QUO 20 5) C 4 
(QUO 40 3) r> 13 


(REM «ni» <п2>) ISUBR a 2 arguments] 


doris la valeur du reste de Le division entiere de «ni» раг 
«ne». 


ex ; (REM 11 3) ES 2 


(REM 14 22 FF 14 


(SUB1 «n») [SUBR a 1 argument] 
ramene la valeur : «n» - 1. 


ex : (SUBI 7) к” 6 
(SUB1 -9) E -10 


A propos, que fait donc cette fonction ? 


(DE TAK (X Y 2) 
(IF (LE X Y) Y 
(TAK (TAK (SUB] X) Y Z) 
(ТАК (SUBl Y) Z X) 
(ТАК (5081 Z) X 02) 
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Pour compter Le nombre de ses appels : 


(DE CTAK (X Y Z) (LET «(C 0)) 
(ET (O00 (Y Y) (Z 2)) 
(INCR C) 
(IF (LE X Y) Y 
(SELF (SELF (1- X) Y Z) 
(SELF (1- 0 2 X) 
5j (SELF (1- 2 X Y)» 


TAK est-elle equivalente a NTAK ? 


(DE NTAK (X Y Z) 
(VTAK [X Y 2])) 
(DE VTAK (U) (COND 
((NUMBP U) U) 
((NULL (CDR UD). (1- (VTAK (CAR U))) (ADDI 'A)) 
(T CLET (OC (VTAK (CAR U))) 
(Y (VTAK (CADR U)))) 
(IF (LE X Y) Y 
(VTAK [[C1- X) Y (CADDR Ui 
[(1- Y) (CADDR U) XJ 
CECCADDR U)) X 3120200) 


NTAK, redigee par John Mc CARTHY illustre La 
necessite absolue des Listes sans type. 
(1- «n») [SUBR a 1 argument] 
identique а 5081. 


(DECR «var») IFSUBR) 
a le meme effet que 


(SETQ «ver» (SUB1 <var>)) 


(TIMES «ni» ... <nN>) [SUBR a N arguments) 
remene la valeur : «ni» ж «n2» ж... X «nN». 


ex : (TIMES 10 4) FF 40 
СТІ 


MES 23 4) m 24 
(TIMES =1) EF -1 
w 1 


(TIMES) 
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Gk «nl» ... <nN>) [SUBR а N arguments] 
identique a TIMES, 


4.3 COMPARAISONS ENTIERES 

Ces fonctions n'effectuent aucun test de vatidite de typs. Si tes 
arguments de ces fonctions ne sont pas des nombres, leurs resultats 
ne sont pas significatifs. Elles ne provoquent jamais d'erreur. 


(EQ «ni» «n2») [SUBR а 2 arguments] 


 ramene T si «ni» = «n2», NIL dans ie cas contraire. 


(= «nl» «n2») [SUBR а 2 arguments] 
identique a EQ 


(GE «n1» «r2») ISUBR a 2 arguments] 
el «nl» >= «n2» alors GE ramene «nl» sinon GE ramene NIL. 
. gm 

(GT «nl» «n2») ISUBR a 2 argumenta] 
si «nl» > «n2» alors GT ramene «ni» sinon GT ramene NIL. 
egi gw 

(> «ni» «n2») [SUBR a 2 arguments 
identique a GT 


(GTZ «n») [SUBR a 1 argument] | 
ві «n» > Û alors GTZ ramene «n» sinon GTZ ramene NIL. 
ex : (GTZ 5) pr 5 с 


(GTZ 0) E NIL 
(GTZ -5) ES NIL 


i 
í 
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(LE «nl» «n2») [SUBR a 2 arguments] 
Si «nl» <= «n2» alors LE ramene «n» sinon LE ramene NIL. 
"Bi E: 
(LT «ni» «n2») [SUBR a 2 arguments] 
ві «nl» < «n2» alors LT ramene «ni» sinon LT ramene NIL. 
ех: (LT 5 5) X NIL 
(LT á 5) E 4 
(< «nl» «n2») (SUBR a 2 arguments] 
identique a LT 


(ZEROP <n>) [SUBR a i argument] 
ramene Ü si «n» est egal a 0 sinon ramene NIL. 
ех: (ZEROP 5) FF NIL 


(ZEROP 0) Е 0 
(ZEROP Si FF NIL 


4,4 FONCTIONS LOGIQUES 

En VLISP 16, un entier sur 16 bits peut etre considere comme un 
vecteur de bits de 16 bits. Les fonctions arithmetiques dites 
logiques traitent de tels vecteurs. 


Pour toutes les fonctions qui vont etre decrites, l'argument s'il 
existe doit etre de type entier. 


(LOGAND «ni» «n2») ISUBR а 2 arguments] 


Effectue l'operation de ET logique entre les deux operandes 
<ni> et <n2>. 


. &ex 3 (LOGAND AAAAHH O3BCHH) . FF 02A8HH 
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Ainsi, pour savoir rapidement si un nombre est impair 
(DE ODDP (N) (GTZ (LOGAND 1 n))) 
Pour savoir si un nombre est une puissance de 2 


(DE PD2 (N) (= N (LOGAND N (DIFFER O N)))) 


(LOCSHIFT «nl» «n2») [SUBR a 2 arguments] 


Effectue un decalage logique de la valeur «nl», «n2» fois. Si 
«n2» est positif un decalage gauche s'effectue,si «n2» est 
negatif, ie decalage s'effectue a droite. 


ех: (LOGSHIFT8 3) р 64 
(LOGSHIFT 8 -2 rr 2 
(LOGOR «nl» <n2>) (SUBR a 2 arguments] 


Effectue l’operation de OU Logique entre Les deux operandes 
«nl» et «n2». 


ex : (LOGOR OO0FFHH FFOOHH) p FFFFHH 
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ATTENTION, ne confondez pas les fonctions de controle AND et OR 
evec les fonctions erithmetiques LOGAND et LOGOR. 


EXEMPLE : 
Ure variante de QUICKSORT : 


(DE QS (L ;; R N Q G P S 
s un tri super-rapide de 
la Liste de nombres L. 
FFFFFFFFFFRRRRRRRRRRRHR........ ¢ 
(IF (NULL L) О 
(SETQ R [NIL]) 
(PUSH (LENGTH L) L) 
(LET ((D)) 
(SETQ D (POP) N (POP)) 
(IF (= N 1) D 
(SETQ Q (LOGSHIFT N -1)) (PUSH Q D) 
(SETQ D (NTH Q D)) 
(PUSH (+ (LOGAND N 1) Q) (CDR D)) 
(RPLACD D) 
(SETQ D (SELF) G (SELF) P (RPLACD R D)) 


(WHILE D 
(IF (< (CAR G) (CAR D)) 
(SSEIQNDDGGNN (RPLACD P D))) 
(SETQ P D D (CDR D))) 
(RPLACD P G) (CDR R))))) 
avec les macros 


(DM PUSH (CALL) (RPLACB CALL 
['SETQ 'S «CONS 'MCONS (REVERSE (CDR CALL) ['81221)) 


(DM POP (CALL) (RPLACB CALL ° (NEXTL S))) 
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ENTREES SORTIES ET FICHIERS 


Des expressions VLISP peuvent etres lues et ecrites sur Les 
terminaux ou le disque (03 ou 07 a l'Ecole). 


It est bon de savoir, en ce qui concerne les entrees-sortles sur 
terminaux, que Le LISP que vous tapez est iu sur CC, que le LISP 
imprime l'est sur LL, que le Line-feed gratuit imprime en fin de 
Ligne (quand vous freppez RETURN) l’est sur EL, ainsi que les 
messages d'erreur et le prompteur "?", 


La fin d'une Ligne est consideree par le lecteur VLISP comme un 
separateur au meme titre que le caractere ESPACE (un atome VLISP, 
nombre ou symbole ne doit donc pas etre a cheval sur 2 Lignes). 


Pour annuler ies n derniers caracteres tapes sur une ligne de 
terminal, tapez n fois le caractere " X " (antislash) puis continuez 
votre entree sur la ligne (une Ligne s'acheve par la frappe d'un 
RETURN). | 

Pour annuler toute une ligne d'un соир, tapez "\" suivi 
immediatement de RETURN. 


ATTENTION, ne depassez pas 76 caracteres par tigne, sinon il se 
produire des evenements consternants (cet avertissement vaut 
egalement pour les lignes de fichiers prepares avec EDITI6). 

En entree, tant sur terminal que sur un fichier, tout ce qui se 
trouve entre deux point-virgules (" ; ") est TOTALEMENT ignore de 
VLISP. Vous pouvez ainsi inserer des commentaires (meme vides) dans 
et entre vos expressions. 


Enfin, VLISP 16 effectue de lui-meme des indentations en debut de 
votre ligne de terminal (apres le prompt " ? ") dont Le nombre (un 
T multiple de 3) est proportionnel a la profondeur d'imbrication de 
votre expression parentheses. (Cette indentation demeure stabie au 
dela de la profondeur 7, d | 
Cette douceur a ete inventee par Jerome CHAILLOUX, 
* Si vous desirez vous en passer, chentez (SETBIT 3), 


Tous les fichiers d'entree sont compatibles evec l'editeur EDITI6 . 
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5.1 LES SPECIFICATIONS DE FICHIERS 

Une specification de fichier a en VLISP 16 la forme suivante : 
«filnam»«ct» DU — «filnam»:L 

dans laquelle : 


est Le nom du fichier (6 caracteres exactement), 
est le nom de catalogue (2 caracteres exactement). 


«filnam» 
«ct» 


. 
* 
е 
s 


Le catalogue "sL" est reserve pour les fichiers standard de VLISP 16 
(ex : PRETTY:L, TRACEF:L, ...). 
SUPER ATTENTION !!! : 


Sous TSF et EDITIS Le nom du fichier comporte un tiret ("-") entre 
Le nom proprement dit et le catalogue de 2 lettres qui le suit. 


Omettez imperativement ce tiret sous VLISP 16. Les sceptiques ou 
les distraits seront irrerecieblement perdants. 


Je repete. PAS de tiret entre le «filnam» et le «ct» en VLISP 16. 
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5.2 LA SELECTION DES FICHIERS D'ENTREE/SORTIE 


VLISP 16 donne acces a la piupart des fonctions de FMS (le fameux 
systeme de fichiers du SOLAR). 


Les fichiers standard sont des fichiers SEQUENTIELS. 


Neuf fichiers au maximum peuvent etre simultanement ouverts. Chacun 
d'entre eux sera associe a un сага! iogique «nc». Apres ouverture, 
seul le «nc» permet d'y acceder. 


(FMS «file» «nf» «nc») [SUBR a 3 arguments] 


avec «file» : une specificetion de fichier, «nf» : un 
"mumero-de-fonction", et «nc» : un " numero-de-cenal- logique" 
eu sens de FMS. 


«nc» doit etre compris entre 1 et 9 inclus. 
«nf» peut etre : 


OPEN NEM , ouvre un NOUVEAU fichier temporaire. 

OPEN OLD , ouvre un fichier DEJA-EXISTANT. 

CLOSE , ferme le fichier ouvert associe au canal logique «nc». 
CREATE , cree et ouvre un NOUVEAU fichier permanent. 

CATAL , rend permanent ie fichier temporaire associe а «nc». 
DELETE , tue te fichier ouvert associe au canal «nc». 

RENAME , rebaptise «file» le fichier ouvert associe a «nc». 
EOJ , ferme absolument TOUS tes fichiers ouverts. 


эе 4% әз 95» оо ge ar op 


m (O ŒŒ (i E> (Q IN >> 


о 


Dans le cas ou vous tentez d'ouvrir un fichier inexistant, où 
deja ouvert et non referme, FMS ramene ia valeur NIL. 

Si L'ouverture est correcte, FMS ramena le nom du fichier еп 
valeur. 


(FMSS «nf» «nc») [SUBR a 2 arguments) 


ne sert que pour certeins positionnements. Accomplit sur le 
fichier associe au canal <nc> les operations suivantes : 


126 : REUIND . Toute lecture ou ecriture se fera en DEBUT de fichier. 
127 : SKEOA . Toute ecriture se fera A LA SUITE du fichier existant, 
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(INPUT «ip») ISUBR a 1 argument] 
avec «ip» pouvant etre un canal logique «nc», ou bien NIL. 


Si «ip» est un «nc» alors toutes les lectures (par READ, 
READCH ...) se feront sur le fichier ouvert associe, sur 
disque. 

Si «ip» est NIL, toutes Les lectures se feront sur le 
peripherique (clavier, cartes ...) precedant la demande de 
lecture sur disque. 


(OUTPUT <op>) ISUBR a 1 argument] 
avec «op» pouvant etre un canal logique «nc», ou bien NIL. 


Si «op» est un «nc» alors toutes les ecritures (par PRINT, 
TERPRI ...) se feront sur le fichier ouvert associe, sur 
disque. 

Si «op» est NIL, toutes tes ecritures se feront sur le 
peripherique (terminal, imprimante ...) precedent іа demande 
d’ecriture sur disque. 


EXEMPLE : 


Une fonction pour Lire sur disque une suite d'expressions, 
. jusqu'a rencontre de l'atome EOF, еї en faire une Liste. 


(DE РОО (NOMFIC) 


(FMS NOMFIC 2-1) ; ouvrir le fichier deja existant ; 
; en l'associant au сапа! 1 
CINPUT 1) $ preparer la lecture sur canal 1 ; 


(LET CO CREAD))) 
(IF (NEQ X 'EOF) (CONS X (SELF (READ) 2) 


(EMS O 3 1) ; fermer le fichier ; 
ME ; revenir a la lecture normale ; 


(STATUS 8 <nfu>) [SUBR a 2 arguments) 
avec «nfu» : un numero de FU-disque. Permet de changer de 
FU-disque, tant pour les ecritures que pour les Lectures. 
.«nfu» devient ta FU courante, | 
It est bon de savoir que (en decimal) : 


02 оз D4 DS D6 D D8 
14 15 16 17 18 19 20 
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5.3 LES FONCTIONS D'ENTREE DE BASE 


Elles utilisent un buffer d'entree inaccessible a l'utilisateur et 
Lisent sur le fichier d'entree choisi eu moyen de la fonction INPUT. 


Les elements de {a Ligne sont pris en compte par le lecteur VLISP 16 
Lorsque la fin de L enregistrement est specifiee (sauf dans le cas 
de (STATUS 5)) par La frappe d'un «cr» i.e. RETURN. 


On notera qu'en lecture, des symboles etomiques comportant des 
caracteres separateurs (parentheses, point, espace ...) peuvent etre 
Blsement crees en faisant preceder ces caracteres problematiques de 
" / " qui teur donne un statut de caractere ordinaire. 


ex ¢ AN/ (NIE/) 
| sera іч comme l'atome de 7 caracteres 
AN (NIE)? 


I! va de soi que le "/" peut se quoter lui-meme. 


Оп notera egalement avec plaisir qu'une lecture еи top-level peut 
debuter par un nombre quelconque de parentheses fermantes qui sont 
lgnorees. Ceci а Le plaisante consequence de permettre de refermer 
a coup sur les definitions de fonctions per une forte giclee de "2", 
sans avoir a les denombrer (UTI, NON ABUTID + 


Enfin on notera qu'au terminal, la frappe de la touche ESC vous fait 
sortir de VLISP sur l'instant (de la meme facon, en moins Lour d 
qu'un (RESET T)? et fait revenir sous TSF. 


(READ) (SUBR a 0 argument) 


Lit un objet (symbole atomique, nombre ou liste) dans Le buffer 
d'entree, et ramane cet objet en valeur. 


(READCH) [SUBR а 0 argument} 


d Lit Le premier caractere immediatement disponible dens le 
buffer d'entree et ie ramene еп valeur sous la forme d'un atome 
cree cu reconnu. Si la fin du buffer d'entree est atteinte, un 
nouvel enregistrement est alors eutomatiquement lu. 


EXEMPLE : 


š 2 [(READOCH) (READCH) (READCH) 1 FOO 
(00 
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(STATUS 5) [SUBR a 1 argument] 


2 


Lit de meme que READCH un caractere , mais ce caractere est 
transmis et devient testable meme si l'enregistrement d’entree 
n'est pas complet. Au terminal, ceci signifie que le caractere 
est iu par (STATUS 5) dans un Gier separe, et peut etre 
traite immediatement apres avoir ets tare sans etre suivi de 
«cr» i.8. RETURN. 

ex : ? (IF (EQ "а (STATUS 52) "OK "KO? 

?а ОК 


(STATUS 6) ISUBR a 1 argument] 


identique а READCH mais n'avance pas dans Le buffer, le 
caractere lu demeure disponible pour une prochaine lecture. 
EX : ^ (PROGN (PRINT (STATUS 6)) (PRINT (READCH))) a 


tres bon pour avoir un caractere d'avance. 
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5.4 LE MODE LIBRARY 


Un nouveau mode de chargement rapide a ete ajoute : Le mode 
LIBRARY, qui, silencieusement, vous charge n'importe que! fichier de 
fonctions se terminant obligatoirement par l'expression (INPUT), 


ATTENTION : les fonctions se trouvant dans ce type de fichier ne 
doivent pas contenir d'erreurs de syntaxe (de lecture), ce mode est 
destine principalement aux chargements rapides des fichiers systemes 
ei des fichiers utilisateurs ne provoquant pas d'erreurs de lecture. 


(LIBRARY «fiie») [FSUBR] 


T charge Le fichier «file» en silence (sans aucune impression). 
St ie fichier existe et si le chargement s'est correctement 
effectue, cette fonction ramens («file») en valeur i.e. Le nom 
UR fichier charge. Dans tous les autres cas LIBRARY ramene 


ATTENTION : Le fichier charge per LIBRARY doit imperativement 
se terminer par (INPUT). 


5,5 LE MODE AUTOLOAD. 


Pour les fichiers contenants des ensembles de fonctions tres souvent 
utilisees il serait assommant de devoir les charger d'abord par un 
appel de LIBRARY, puis d'appeler la fonction principale du fichier 
ainsi charge. Le mode dit AUTOLOAD resout heureusement cette 
difficulte. 


(AUTOLOAD «fite»? ISUBR a 1 argument] 


rend le fichier «fils» autoloadable. Supposons que FOU est une 
des fonctions du fichier FOOFIC:L. Si vous svaluez : 


(DM РОО (L) (CAUTOLOAD 'FOOFIC:L)) 


Si a present vous appelez (РОО ... ), le fichier FOOFIC:L sera 
automatiquement charge (it doit natureilement se terminer par 
e (INPUT) comme tous les fichiers de fonctions), puls la fonction 
FOD sera appelee avec sa definition chargee et ses arguments 
originaux. C'est ce qui vous permet de chanter directement des 
choses comme (PRETTY HACK) ou (TRACE HACK) sans avoir a charger 
vous-memss PRETTY:L ou TRACEF:L par un appel de LIBRARY. 
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5.6 LES FONCTIONS DE SORTIE DE BASE 


Toutes editent dans un buffer de sertie totalement accessible e 
l'utilisateur, et ecrivent sur le fichier de sortie choisi au moyen 
de la fonction OUTPUT. Si au cours d'une edition le buffer de 
sortie est plein, il est automatiquement imprime, en utilisant la 
fonction (TERPRI), et L’ edition se poursuit sur la ligne suivante. 
Sauf modification demandee (voir Chapitre 6) tous les objets edites 
par FRINT et PRIN1 seront precedes d'un espace. 


(PRINT «sl» ,.. <sN>) I[SUBR a N arguments] 


edite dans le buffer de sortie les differentes S-expressions 

«sl» ... «sN» puis imprime ce buffer (apres insertion des 
caracteres Cerriage Return / Line Feed). PRINT ramene «sN» en 
valeur. | М " 


(PRIN? «sl» ... <5№) [SUBR a N arguments] 


edite dans le buffer de sortie les differentes S-expressions 
«si» ... «sN» sans imprimer Le buffer. PRIN1 ramene «sN» en 
valeur, 


(TERPRI) [SUBR a O argument] 


imprime le buffer de sortie, se positionne en debut de ligne en 
imprimant le code Return, puis saute une ligne en imprimant une 
fois le code Line-feed. 


TERPRI ramene toujours la valeur NIL. 


ex : La fonction PR-ATS imprime Les stones 
elements de Le liste dans teur ordre 
d'occurence eu cours du balayage prefixe : 


(DE PR-ATS (L) 
(LET ((L L)) «COND 
( (NULL L)) 
(САТОМ L) (PRIN1 L)) 
((ATOM (CAR L)) (PRINI (NEXTL L)) (SELF L)) 
= (T (SELF (NEXTL LD) (SELF UI ` 
=` CTERPRI)) du E 


^(PR-ATS ' (A (B . C) NIL (D E (F))) ` 
A B C NIL D E F | 
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(PAGE <n>) [SUBR a 1 argument] 


imprime ie buffer de sortie puis saute «n» pages (en envoyant 
le code Form-Feed) sur LO. PAGE ramene «n» en valeur. 


(SPACES «n») [SUBR a 1 argument] 


edite «n» fois le caractere espace. SPACES ramene «n» en 
valeur. 


(TTAB <n>) [SUBR a 1 argument] 


specifie que le prochain objet edite (par PRINT ou PRIN1) sera 
place a la position «n» dans la ligne de sortie. TTAB ramene 
«n» en valeur. TTAB est utilise pour creer des tabulations 
(alignages sur des colonnes specifiees) programmees. 


5.7  MACROS-CARACTERES 


Il y a possibitite À LA LECTURE d'appeler une fonction VLISP a ta 
geule occurence d’un caractere dans le flot d'əntree. Le caracters 
essocie prend ators le statut de macro-caractere. 


Le resultat de l'appel de cette fonction sera substitue a la place 
du caractere lu. Cette possibilite est tres utilisee par VLISP 
Lui-meme (le caractere de quotage "'" est un macro-caractere), ainsi 
que dans les programmes ou il y a Lieu de distinguer Les variables 
des objets constants : interpretes  speclaux, unifications, 
_filtrages. Plus generalement un objet, atome ou Liste, precede d'un 
macro-caractere pourre etre transforme au moment de Lla lecture en 
une expression denotant explicitement son type. Des exemples 
viendront есіаігег cettes explication (1) tres obscure. 


(MCHAR «c» <lam>) [FSUBR] 


D | ou «c» est le caractere a macrocariser, st «lam» est ипе 
lambda-express ion. | 


Associe le ceractere a la Lembda-expression qui se trouvera 
appelee avec Ü argument, eux occurences du caractere dans Le 
ftot d'entres. 


. On notera qu'un macro-ceractere se comporte comme urn caractere 
` normal s'il est precede de "/". ) 
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EXEMPLES: 


Si le macro-caractere QUOTE "°" n'etait pas standard, il 
serait defini par : 


(MCHAR /' (LAMBDA О (LIST QUOTE CREAD)))) 


Pour que [et e2 ... eN] soit, a ta lecture, transforme әл 
(LIST е1 e2 ... eN) : 


(MCHAR /[ (LAMBDA О (LET (4X 'LISTD 
(IF (NEQ X '/1) (CONS X (SELF (READ))))))) 


(MCHAR /] (LAMBDA (> '/1)) 


Le plus simple des filtrages : 
(MCHAR ! (LAMBDA О PYAR (READ)1)) 


(DE MATCH (P E 
(ESCAPE EXIT 
(LET («P P) (E E) (AL)) (COND 
((ATOM P) (IF 155 Р Е) (EXIT 'NO 


((EQ (CAR P) ' VAR) 
(LET ((Z (ASSQ (CADR P) AL))) (COND 
( (NULL Z) (CONS ((CADR P) El ADD) 
( (EQUAL (CADR Z) E) AL) 
(T «EXIT 'NQ))))) 
(T (SELF (CDR P) (COR E) 
. (SELF (CAR P) (CAR Е) AL))))))) 


Q? (MATCH "ON x IX) "СА - B) ж (A - В))) 
(X (A - B» 


?XMATCH '(!X x (IY + 1Z)) *CCA + B) ж (C + D))) 
(CZ D) (УС) (X (A + E) 


(MATCH "ON ж 1X) '(5 x A? 
NO 
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CHAPITRE 6 
LE MOT DE CONTROLE 


IL existe un mot de 16 bits qui controle certains etats du systeme 
Ge 16. Се mot est accesible au moyen des fonctions SETBIT et 


6.1 LES FONCTIONS DU MOT DE CONTROLE 
(SETBIT <n>) [SUBR a 1 argument] 


positionne a 1 le bit de numero «n» du mot de controle. «n» 
doit etre compris entre 0 et 15 inclus. Ramene «n» en valeur. 


(CLRBIT <n>) [SUBR a 1 argument] 


identique a SETBIT mais positionne a 0 ie bit «n» du mot de 
controle. 
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Voici la Liste de ces bits ainsi que leur signification. 


BITS FONCTION DU POSITIONNEMENT 


= Ü : un espace est ptace AVANT tout 
objet, atome ou Liste, imprime 
dans une ligne. 

= 1 : suppression de cet espace. 


sortie teletype. 
sortie sur LO (1° imprimante). 
En B0S/D uniquement. 


Zë ag 


en compte. 

= ] : il n'en est rien. Les caracteres 
definis comme macro-caracteres 
sont lus comme des caracteres 
ordinaires. 


= Ü : sortie des nombres en decimal. 
= 1: sortie des memes en hexadecimal, 


LL 


j 
| 
l 
| 
x 
| 
13 | = Ü : les macro-caracteres sont pris 
| 


H 
eo 
a^ 


tes ";" sont pris en compte comme 
separateurs de commentaires. 

= Ï : ils ne le sont pas. ";" est alors 
un caractere ordinaire. 


10 = Ü : les "/" sont pris en compte comme 
quoteurs de caracteres. 

= 1 : ils ne le sont pas. "/" est alors 
un caractere ordinaire. 


9 = Ü : ne pas restituer les "/" en sortie 
= ] les restituer en sortie а! 
D пэн "7", i^ E" E! (n. "y" 
, L] 
8 | e 0: impression de la E iran d evalua- 


tion demandee au TOP-LEVE 
= 1 : non-impression au TOP LEVEL. 
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= 0 : Listing carte lue sur LO. 
En generat l'imprimante. 

= 1 : Listing carte lue sur teletype. 
Seulement sous BOS/D. 


: rien 
+ lecture sur disque. 
Ne le positionnez JAMAIS vous-meme. 


à 5 = 0: rien 
= 1 : ecriture sur disque. 
N'y touchez PAS non plius. Des choses 
horribtes pourraient arriver. 
——— | —— J. xP 
3 


= Ü : 1'епігее-сіауіег est indentee. 
= Ï 3 elle ne l’est pas (pour que tes 
| conservateurs puissent conserver). 


2 = Ü : non-listing d'enregistrement Lu 
sur SI (lecteur de certes ou disque). 
= 1 : Listing du dit enregistrement. 


eege Po pm 


1 = Ü : mode interactif. 
seul valable sous TSF. 
= 1 : mode BATCH (sous BOS/D seulement). 


e PP 
ранни " 


0 ecture sur teletype. 


s 1 
t Lecture sur SI (le lecteur de carte). 


Au chargement de VLISP 16, tous ces bits sont a 0. 
Toute erreur remet de meme іе mot de controle a 0; ainsi, Les 


options standard sont restaurees. 
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CHAPITRE 7 
ERREURS, STATUS, ET FONCTIONS SYSTEME 


7.1 DIAGNOSTICS D'ERREUR 


S'il y a une erreur detectee, VLISP tape "an «le-type-d'-erreur»" 
precede dens certains types de L'impression du coupebie (ex: Le 
fonction non-definie), puis repasse la main au clavier et a la 
boucle de Lecture de l'interprete. 


Aucune definition de fonction, ou Liaison de variable n'est 
modifiee, et un garbage-coliecting est effectue dans ia foulee. 


Voici La Liste des «types-d'-erreur» : 


LC : erreur de lecture. 1l peut s'agir d'un "." mat place, ou 
d'un "[" non-referme. Ün est amene souvent a ia provoquer 
volontairement. 

RT: on a tente d'evaluer un appel de RETURN sans etre dans un 


PROG. 


FS : pile de travail debordee. Erreur due a une recursion trop 
profonde ou infinie. 


FM 3 il n'y a plus de doublets disponibles en zone Liste. 
AT : il y a trop d'atomes definis par l'utilisateur. 


A2 : fonction non-definie, detectee dans APPLY, Le nom de cette 
fonction inconnus est imprime AVANT le diagnostic. 


AG : GO ou GOTO a une etiquette absente du PROG courant. Le nom de 
L'etiquette absente est imprime. 


A8 : tentative d'evaluation d'une variable non-initisiises. Le 
nom de la variable est imprime. En general, ta variabte а ete ` 
simplement оиб і ее. | | | 


A9 : fonction non-definie, detectee dans EVAL. Le nom de la 
4 fonction inconnue est imprime. | 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 79 / 130 


Le Système VLISP 16 


Page 7-2 

7.2 LES DESASTRES 

En dehors des erreurs civilisees attrapees et signalees рег 
VLISP 16, des situations consternantes peuvent se produire. Depuis 
l'absence totale de reponse du terminal, un comportement de sortie 
erratique, jusqu'aux erreurs brutates FMS vous renvoyant sous TSF, 
Certains de ces desastres sont comprehensibles. En voici une breve 
Liste рше d'un remede quand уа moyen. Ya des cas où ya pas 
de remede. Tant pis. 

- Un crash TSF (Dieu sauve vos fichiers D. 

- Vous bouctez (je ne peux rien faire pour vous). 


- Vous avez lu une ligne de plus de 76 cercateres. Coupez la еп 2 
Lignes de longueur canonique. 


~ Vous avez fait un SETBIT inepte. Relisez le Chepitre 6. 

- Vous avez frappe la touche BREAK en plein milieu d'un 
garbage-co! lect ing (je n'y puis rien. Je ne peux pas masquer Les 
interruptions pendant la garbege-collecting sous TSF en mode 
esclave). 

- Vous avez modifie une constante. L'effet peut etre des plus 
curieux, specialement s'il s'agit de T. N'utilisez pas T comme 
variable, ni aucune constante d'ailleurs. 


- Vous avez effectue un RPLACA ou un RPLACD sur un nombre. Effet 
prodigieux. Trouvez ou ca se produit et corr igez. 


- Vous eppliquez des fonctions arithmetiques sur des uds qui ne 
sont pas des nombres, ou l'inverse. Tres sournois. (Corrigez. 


- Vous avez feit un appel avec NIL en position de fonction. Ca 
boucle. Pas facile a trouver, mais on y arrive quand meme. 


-~ Vous avez INCONSIDEREMENT fait un appel avec une constante en 
position de fonction. Le resultat peut etre surprenant. 


= Il manque des parentheses  fermantes dans votre fichier de 
fonctions. Rajoutez-les aux bons endroits. 


_ Votre fichier de fonctions ne $e termine pes par (INPUT). 
. Mettez-le. | | | | "E 


- Vous avez mis te tiret fatidique (voir Chapitre S) dans votre nom 
de fichier entre <filnam> et «ct». Enlevez-le. 


- Votre fichier n'existe pas. Creez-le. 
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7.3 STATUS 
La fonction STATUS sert a accomplir des actions hardies, telles que 
la modification physique de l’interprete en memoire. Dieu vous 


garde et fasse que vos errances n'aboutissent pas a la destruction 
totale de votre image-memoire. 


(STATUS 1 «n») [SUBR a 2 arguments] 


ramene ie contenu du mot memoire d'adresse «n» (adresse absolue 
sous BOS/D, retative sous TSF). 


А ` (STATUS 2 «ni» «n2») [SUBR a 3 arguments] 
place en memoire Le nombre «n2» a i'adresse «ni». Dieu vous 
garde etc. 


(STATUS 3) ISUBR a 1 argument] 
sauve l'ensemble des atomes que vous avez definis jusqu'ici. 

(STATUS 4) [SUBR a 1 argument] 
restitue l'ensemble des atomes sauves раг (STATUS 3). Permet 
donc de lutter contre la penurie chronique de place pour les 
atomes. Apres un (STATUS 4) tous les atomes definis depuis Le 
dernier (STATUS 3) sont volatilises. Utilise en general par 
tes programmes a grand nombre d'atomes tels que LAP ainsi que 
par les systemes de traitement de langage naturel. 

(STATUS 5) (STATUS 6) (STATUS 8 <n>) 
voir le chapitre Entrees-Sorties en 5.3 et 5.2 

(STATUS 6 «n») voir en 3.5. 

7.4 FONCTIONS SYSTEME 

En VLISP 16, un nombre est un doubtet en zone liste de la forme : 

(<marque-de-nombre> . «ie-nombre-16-bits») 
Pour. des actions operables par les seuls magiciens, la possibilite 


de passer de {а representation «nombre-VLISP» а la representation 
«nombre-18-bits» est disponibte. | о 
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(LOC <s>) [SUBR a 1 argument] 


donne, sous La forme d'un <nombre-VLiS®s l'adresse en memoire 
de l'expression «s», symbole, nombre ou Liste. 


EX : 
(LOC NIL) LI? adresse de l'atome NIL. 


(МАС <n>) [SUBR a 1 argument] 


remene l'objet VLISP, nombre, symbole ou Liste, habitant a 
l'adresse «n». 


EX : 
. (AG (LOC expression?) KF L'expression 


(RESET T) [SUBR a 1 argumenti 


redonne la main au systeme (BDS/D ou TSF). N'est plus guere 
utilise qu'en mode BATCH. En mode interactif, on sort de VLTSP 
per La frappe de ESCAPE au clavier, Four rentrer a nouveau 
veier VLISP, toutes definitions et liaisons conservees, chanter 
a TSF : 


>CLISP 


LOC et VAG seront tres utiles pour s’atlouer des doublets en nombre 
super ieur a celui donne par defaut. 


EXEMPLE : 
Pour obtenir 300 doublets supplementaires, chantez au 
TOP-LEVEL 
(PROGN (SET (СОВ 'CAARD (VAG (+ 899 (LOC (CADR 'CAAR))))) 


(SET (CDR 'CADR) (YAG (+ 600 {LOC (CADR ? CADR) )))) 
CXYZZY)) 


Et vous voila avec 300 doublets additionnets. 
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EDITIONS ET TRACES 


Ce chapitre est consacre a divers outils d' impression, de trace, 
d'edition, et de mise au point. En VLISP comme ailleurs, on vit 
ires mal sans. | 


8.1 LE PRETTY-PRINT 


Le Pretty-Print est un ensemble de fonctions VLISP destine a 
l'impression supposee agreable et lisible de fonctions presentes en 
memoire. L'impression obtenue est essentiellement une justification 
selective par indentation. 


Pour l'utiliser ‘il suffit de chanter : 
(PRETTY «nomi» «nom2» ... <nomN>) 


et voici que sont prettyprintees les fonctions <noml> ... «nomN». 


8.2 LES TRACES 


11 s'agit encore d'un ensemble de fonctions VLISP destine a imprimer 
des etats et resultats  intermediaires au cours d'un calcul. 
Plusieurs types de traces sont disponibles. Dans tous Les cas 
L'unite de trace est la fonction. Dans ce qui suit, tous ies 
«nomi» ... «nomN» designeront des noms de fonctions definies par 
l'utilisateur, de type EXPR ou FEXPR. 


(TRACE «nomi» ... <nomN>) {FEXPR} 


Tous les appeis des fonctions nommees seront imprimes ainsi que 
teur niveau d'appet et la liste des valeurs des arguments. Au 
retour sera imprime le nom de la fonction, le niveau de retour ` 
ainsi que le resultat de lappet correspondant. — 


(UNTRACE «nomi» ... <nomN>) [FEXPR] 
Annule les demandes de trece pour ies fonctions nommees. Je ne 


vous conseille pas d'esssyer de untracer des fonctions non 
tracees ; le resultat sere horrifiant. 
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(TRACEQ «nomi» ... <nomN>) [FEXPR] 
Dans les fonctions nommees, toutes les affectations par SETQ 
(seulement dans le cas ou Le SETQ n'affecte qu'une var Lab le) 
seront tracees sous la forme : 


«variable» = <valeur-affectee> 


(UNTRACQ <noml> ...  «nomN») IFEXPR) 


Annule les demandes de traces de variables affectees pour Les 
fonctions nommees. 


(TRACEGO «nomi» ...  «nomN») IFEXPR) 
Lorsque les fonctions nommees contiennent un PROG,  TRACEGO 
permet de tracer tous les branchements par GO. Sera, a chaque 
branchement effectue, imprime : 


(ETIQ: <etiquette-de-branchement) 


(UNTRACG «nomi» ... <nomN>) IFEXPR) 


Annule tes demandes de trace de branchements pour les fonctions 
nommees. 


L'ensemble de ces fonctions de trace est rassemble dans le fichier 
TRACEF-:L. Exeminez-le donc avec EDIT16. 
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8.3 L'EDITEUR EF, ADVISE ET BREAK. 


EF est un petit editeur, tres rapide, pas encombrant et pratiquement 
incassabte. 


Il а l'avantage considerable de n'etre PAS une boucle TOP-LEVEL, et 
donc de donner acces à l'unique structure de donnee de EF : la 
Á variable globale "жж" (voir Listing au chapitre 9), et de permettre 

a tout instant l’evaluation de La fonction en cours d' edition. 


Pour l'utiliser il convient de charger par LIBRARY le fichier 
DEBUGG-:L.. 


Une fois qu'on est entre dans EF, et nous verrons comment, it faut 


Si imaginer qu'un CURSEUR est positionne 8 gauche du premier element 
de ce que nous nommerons dans ce qui suit la LISTE COURANTE. 


EXEMPLE : 
Voici une fonction problematique : 

(DE FOO (X Y) 

(FI (NULL 2) 
| (CONS (FOO (CAR X)) (FOO CDR X)))) 

Pour l'editer on chante : 

(EF FOD) 
Et EF reptique : | 

(LAMBDA (ж ж) Ok ж 32) 


Les etoiles remplacent, (a l'impression seulement) Les niveaux 
depassent la profondeur 1. 


Et voici ce qu'il faut s' imaginer : 
Le-LISTE-COURANTE---» ( LAMBDA (ж ж) Ck x ж)) 
Le-CURSEUR 


L'edition consistera а deplacer le cursaur et a modifier les zones 
insatisfaisentes, et la suite va nous indiquer comment. ` i 
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8.3.1 Commandes De EF 
(EF «nom-de-fonction») [FEXPR] {Edit Function) 
Pour rentrer sous ediieur avec la fonction. 


(P <n>) [EXPR a 1 argument] {Print} 


Pour faire imprimer l’objet edite a «n» niveaux de profondeur 


(tes niveaux trop profonds sont imprimes "x"). 


8.3.1.1 Recherche Par Position - 
(MV «gi» ... «qN») IFEXPR] {MoVe} 


Deplace le curseur comme suit. Si «ql» est un nombre, 
curseur est depiace a gauche du ql-eme element de La LISTE 
COURANTE. Si «gl» est l'atome "UP", (element sur 
pointe (e curseur doit etre une Liste, cette Liste devient 


alors La LISTE COURANTE. 
«gl» ::25 «n» | UP 


EXEMPLES : 


Liste-courante : (A (B) (CD ED 
commande : (MV 3 UP 1) 
Liste-courante ; (Ç 


Liste-courante : 
commande : (WV 3 UP 
Liste-courante : (X Y) 


(IF (FOO X) (BAR (CAR X Y))) 
UP 2 UP 2) 
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8.3.1.2 Recherche Par Contenu - 
(ЕК <s>) IFEXPR] {Find Konstant} 


Avec <s> une expression, atome ou liste. FK considere la liste 
courante comme un arbre et y effectue une recherche prefixe 
Jusqu'a trouvaille de «s», a la suite de quoi la recherche 
cesse, en positionnant le curseur a gauche de l’objet trouve. 


EXEMPLES : 
Liste-courante 


commande 
Liste-courante 


(A (B C) (B ED 
(FK B) 
(B O 


эзе ve 95 


Liste-courante : (IF (NULL X) NIL «CONS (CAR X) (FOO (CDR 3002) 
commande (FK (CAR X)) 
Liste-courante (CAR X) (FOO (CDR Х))) 


Li] 


(FP <fittre>) [FEXPR] {Find Pattern} 


Le <fittre> est : 

- une Liste ordinaire OÙ 

- une liste comportent des occurences de "on QU 

- une liste pointee (el e2 ... eN . ?) . 

FP balaye de meme la liste courante comme un arbre prefixe a la 
recherche d’une sous-expression heureusement filtrable et 
s'arrete avec positionnement lorsque L'heureux evenement se 


produit. 

EXEMPLES : 
Liste-courante : (IF (NULL X) NIL (CONS (CAR X) (FOO (CDR 0005) 
commande : (FP (NULL 72) 
Liste-courante : ((NULL X) NIL (CONS (CAR X) (FOO (CDR 0005) 
commende : (FP (FOO . ?)) 


Liste-courante ((FOO (COR 002) 
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deeg 
8.3.1.3 Commandes De Modification - 
(I «el» «e2» ... <eN>) [FEXPR] {Insert} 

Insere a DROITE du curseur tes expressions «el» ... «eN». 


(IL «ei» «e2» ... <eN>) IFEXPR] {Insert Last) 


Insere a la FIN de la Liste courante les expressions 
«el» ... <eN>. 


(D <n>) [EXPR a 1 argument] (Delete) 
Elimine tes «n» expressions a droite du curseur. 
(DL) I[FEXPR] (Delete Last} 


Elimine La DERNIERE expression de la Liste courante. 
C'est tout. C'est simple, pratique et agreable. 


8.3.2 ADVISE 


Permet d'interposer des couches d'instructions AVANT l'entree dans 
Le corps d'une fonction, et APRÈS l’evaiuation du corps. Cette 
interposition est faite de facon totalement  independante de la 
definition de la fonction ADVISEe, et ne change en rien le resultet 
que la fonction est supposee retourner. 


(ADVISE «nom-de-fonction» «el» ... <eN> ж «dl» ... <dM>) ТҒЕХРАЈ 


ADVISE insere les instructions «el» ... <eN> AVANT {е corps de 
la fonction (represente obligetoirement par "*"), et insere les 
instructions «dl» ... «dM» APRES le corps de ta fonction. 


EXEMPLE : 
(DE FOO OO (PLUS X 4)) 
(FOO 3) 77 


(ADVISE FOO (PRINT *BONJOUR) ж (PRINT 'BYED) 
(FOO 3) x awasi 29 4 
et 7 est toujours ramene en valeur. 
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(UNADVISE «nom-de-fonction») [FEXPR] 
De-ADVISE la fonction precedemment ADVISEs. 
EXEMPLE : (suite du precedent) 


(UNADVISE F00) 
(FOO 3) r7 


8.3.3 BREAK 


BREAK permet de placer une boucle de  iecture-evaluation-ecriture а 
l’entres d'une fonction, de facon tout a fait independante de Le 
definition de La fonction. .En mode interactif, BREAK ressemble a 
une trace dans laquelle, a l’ entree dans ta fonction, des 
informations sur les valeurs de variables, des evaluations, voire 
des ы peuvent etre demandees. Tres utile outil de mise au 
point. 


(BREAK <nom-de-fonction>) IFEXPRJ 


Induit l'effet complexe suivant : 

apres cette commande, toutes les fois que іа fonction BREAKee 
sera eppeles, vous vous retrouvez dans une boucle de TOP-LEVEL 
qui evalue et imprime ce que vous tapez (toutes sortes de 
demandes de renseignements pourquoi votre fonction ne marche 
pes, je suppose), jusqu'a tapage d'un "T", a la suite de quoi 
ia fonction se deroule normalement. 

La boucte TOP-LEVEL en question est : 


(DE TOP (MSG rr -X-) 
(PRINT MSG) 
(IF S (SETQ -X- (READ) T) 
(TOP MSG) ›) 


SL elle ne vous plait pas, redefinissez ТОР a loisir, et avec 
mes compliments. | 


Y | (UNBREAK <nom-de-fonction>) ÎFEXPR] 
| DeBREAKe ta fonction BREAKee. 


Le listing de EF, BREAK et ADVISE est fourni au chapitre 9. 
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CHAPITRE 9 
QUELQUES EXEMPLES 


Dans ce chapitre, Le lecteur trouvera quelques exemples 
d'utilisation de VLISP 16. Des techniques tres variees y sont mises 
en jeu, illustrant divers aspects du langage et de son utilisation 
ordinaire. Tous ces programmes sont essentiellement didactiques et 
visent moins a instruire le lecteur qu'a l’inciter a etendre les 
portees d'action de ces programmes consideres comme noyaux de 
developpement. Reste qu'on ne trouvera pas ici pour chacun d'eux un 
commentaire detaille, ce n'est pas l'objet d'un manuel de reference. 
Seront livres cependant une rapide description de leurs raisons, des 
exemples d'utilisations, Le listing complet enfin. Faites donc 
tourner tout ca pour votre edification et votre plaisir, 


9.1 MINI-SERIES 


Un programme de completion de series ecrit a l'origine en langage 
SAIL раг С. HEDRICK a C.M.U., en Janvier 1972. Le programme tente 
de former une description d'une serie de nombres, et s'efforce 
d'utiliser cette description pour etendre les series decrites. 


Une description sera une suite de triplets : 

(«start» «move» <increment>) 
Un triplet est une sorte de peigne a 3 branches. La premiere pointe 
sur une position de depart dans la serie, la seconde indique la 


distance entre «start» et «move», la troisieme designe l'increment a 
ajouter aux nombres pointes par les branches. 
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Voici des exemples d'utilisation de MINSER. 


?(M-SERIES '( 
SUCCES (1 1 
3-UPLES ((1 
OK 


*(M-SERIES '(12 
SUCCES (1234 
= (111 


?(M-SERIES '(12 1 ei 1???) 
ECHEC (02121? 1 ?) 
em ((1 2 0)) 


11112???) 
1 1 1 1 1) 
1 0)) 


34 
5 6) 
)) 


?(M-SERIES ' (1 
SUCCES (121 
3-UPLES (C2 2 
OK 

?(M-SERIES '(1324 35 
SUCCES (1 3 2 4 3 5 4 6 
RU (221) (1 21 


7(M-SERIES ' ( 10 2 9 3 8 
SUCCES (1 102938 4 7 
teg ((2 2 -1) G21 


ar 
Ф cl 
С wv 
< 


) 


?(M-SERIES ' '(8 6427???) 
SUCCES (88 4 2 0 -2 -4) 
m e ((1 1 -2)) 


? (M-SERIES 
SUCCES (1 


” ( 

1 
3-UPLES ((2 
OK 
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Et voici le Listing de MINSER : 


(DM SETA (cati) 
(RPLACB call [SET L'NTH (CADDR call) (CADR cal] 
(CADR (CDOR cat 021?) 


(DM ELM (call) (RPLACB call 
("CAR L'NTH (CADDR call) (CADR cat 0110? 


(DM SEND (cati) (RPLACB cell 
j ['SETQ '#target (CADR cali) '#msg (CADDR cat 01)? 


(DE M-SERIES (let) 
(SETQ Ls 0 lk 0 status О start 0 3-uptes NIL) 
(SEND 'Sinitialiser Let) 
(WHILE (NEQ disi oa *$fini) ¢ Loop loop loop ; 
(terget #msg? 
(PRINT #msg Let) 
E 'S-uples 3-up tes) 


(DE Sinitiatiser (let) 
(IF (NULL Let) (SEND '$neustart (А001 stert)) 
(SETQ lk (ADD1 lk) status (CONS NIL status)) 
(IF (МЕД (NEXTL tet? '?) (SETQ ts (ADDI Ls))) 
(Sinitieliser let))) | 
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(DE Sneustart (msg) 
(SETQ start msg) 


(COND ` ` 
(CGT start lk) (SEND °%#іпі 'succes?? 
((ELM status start? ($newstart (ADDi start))) 
(T (SEND '$neumove 1)))) 


(DE Sneumove (msg) 
(SETQ move msg) 
(IF (GT (PLUS start move move) Lei (SEND '$fini 'echec) 
(SETQ inc (DIFFER (SETQ predicted (ELM tet (PLUS start move))) 
(ELM Let star t?) 
predicted (PLUS predicted inc?) 
(SEND '$verifier (PLUS start move move)))) 


(DE Sverifier (x) (COND 
( (GT x LS) 
(SETQ 3-uples (CONS [start move incl 3-uples)) 
(SEND '"$completer start?) 
((NEQ predicted (ELM Let х?) (SEND 'Snewmove (А001 move))) 
(T (SETQ predicted (PLUS predicted inc?) 
(Sverifier (PLUS x move))))) 


(DE Scompleter (x) 
(IF (GT x lk) (SEND '$neustart (А001 start?) 
(SETA status x D 
(AND (GT x Ls) 
(SETA Let x predicted) 
(SETQ predicted (PLUS predicted inc))) 
($completer (PLUS x move)))) 


(PRINT 'Lancer 'avec '(M-SERIES "(x x x x ? ? ?))) 
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9.2 UN INTERPRETE VLISP PUR ET SON OPERATING SYSTEM 


Le; seules fonctions standard connues de сеї interprete sort DE, 
CAR, CDR, CONS, АТОМ, EQ, QUOTE et iF. 


La technique des Á-listes est ici utilises pour  implementer les 
environnements, et realise le type de Liaison dit PROFOND. 


L'Operating System est La fonction LOOP charges de lire les 
definitions (elle-seule peut comprendre tes appels de DE), de passer 
a SEVAL les autres expressions lues (atomes ou appeis), d'imprimer 
enfin le resultat de l'evaluation. 


j L'appel de LOOP dans te corps de LOOP est un cas de fausse 
i recursivite, interprete sans consommation de pile, tels que ceux 
decrits au Chapitre 1, Paragraphe 4 


Que le Lecteur se persuade bien que VLISP 16 n'est PAS imptemente de 
cette maniere, et c'est heureux, 


(DE VALUE «V ENV) 
(IF (EQ V (CAAR EN) 
(CADAR ENV) 
(VALUE V (CDR ENV)))) 


Pour extraire de l’ENVironnement ¢; 
ta valeur d'une VARiable. ; 


то ve 


(DE NEUENV (V E ENV) 


Pour ajouter a U'ENVironnement  ; 
(CONS (V E] ENY)? 


un nouveau couple («var» «e») ; 


(DE SUPNEHENV (X y ENV) ; Avec X = («vi» ... <vN>) 
(IF (NULL X) ENV ; Y = (<el> ... <eN>). 
(NEHENV (NEXTL X) (NEXTL Y) CSUPNELENV X Y ENDO» 


* ve 


(DE LISP nce tout. : 
(LOOP DÉBUT (SRE AD) ' ((NIL ub (T Т)))) 


(DE LOOP (SORTIE ENTREE ENV) ; L'Operating System 3 
(IF (AND (LISTP ENTREE) (EQ (CAR ENTREE) 'DE» 
(LOOP man UR (CADR ENTREE) ) 


S 
(NEUENV (CADR ENTREE) 
Cie LAMBDA (CDDR ENTREE) ) 


| ENV) 
(LOOP (PRINT (EVAL ENTREE ENV)) (SREAD) ENV))) 


e (DE SREAD ( s Pour Lire en etant prevenu. $ 
| ст "QUELQUE "CHOSE "A " EVALUER '" SVP) 
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ES 


(DE ST-SUBR (F) ; F est-elle une SUBR ? ; 
(MEMQ F ' (CAR CDR CONS ATOM EQ) 

(DE XCT-ST-SUBR (F L) ; Appliquez іа SUBR F a ta liste ; 
(SELECTQ F ; L des arguments evalues H 


(CAR | (CAAR Li) 

(CDR (CDAR L)) 

(ATOM (ATOM (CAR L222 

(CONS (CONS (CAR L) (CADR L))) 
б, (EQ (CAR L) (CADR L))) 


(DE ST-FSUBR (F) ; F est-elle une FSUBR ? $ 
(МЕМО F 'XIF QUOTE))) ` 


(DE XCT-ST-FSUBR (E ENV) ; Pour evaluer l'appel E de FSUBR 
(SELECTQ (CAR E) 
(QUOTE (CADR E)) 
(IF (IF (SEVAL (CADR E) gr^ 
(SEVAL (CADDR Е) ENV 
(SEVAL (CADR (CDDR E ENV) )) 


чә 


())) 


(DE SEVAL (E ENV) (COND ; Le EVAL de ce LISP 
((ATOM E) (VALUE E ENV)) | 
( (ATOM (CAR Е)) 
(IF (ST-FSUBR (CAR E)) 
(XCT-ST-FSUBR E ENV) 
(SAPPLY (NEXTL Е) (EVARGS E ENV) ENV))) 
(T (SAPPLY (NEXTL E) (EVARGS E ENV) ENV)))) 


е 


(DE SAPPLY (F ARGS ENV) (COND ; Le APPLY de се LISP 
(САТОМ F) (IF (ST-SUBR F) 
(XCT-ST-SUBR F ARGS) 
GAU (SEVAL F ENV) ARGS ENV))) 
((EQ (CAR F) LAMBDA) 
(SEVAL (CADDR F> (SUPNEUENY (CADR F) ARGS ENV))) 
: pour avoir SELF : 7 asal Le ENY precedent par : ; 
WENV "SELF F ENV) t 
(Т mee (SEVAL F ENV) ARGS ENV)))) 


(DE EVARGS (LARGS ENV) a : Pour consta ta liste ; 
. (IF (NULL LARGS) NIL des elements de LARGS evalues : 
(CONS (SEVAL (NEXTL LARGS) ' ENV) 
i (EVARGS LARGS ENV)))) 


(PRINT ‘Pour ‘lancer ‘faire ° (LISP)) 
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9.3 UNE MACHINE LISP VIRTUELLE 


11 s'agit d'une simplification considerable de la machine LISP de 
Jerome CHAILLOUX nommee VCMC2. 


Petite machine-LISP donc, comportant les registres Al, A2, A3, A4, 
A5, ENV. Avec de surcroit un compteur ordinal PC et une pite cablee 
dont nous appellerons P te registre pointeur de sommet. 


En voici les instructions : 
(MV «e» «reg»? «e» + «reg» 


avec «reg» ::» А1 | А2 |АЗ [АФ | AS [ЕМУ 
et | «e» ::= үгез 


NIL 

' «une-expression» 

(CAR <e>) 

(CDR <e>) 

|(«n» P) »^adressage relatif au 
«Sommet de pile. 


(PUSH «e») incr P; «e» э MIP] 

(POP «reg»? MIP] > «reg»; decr P 

(SUB P <n>) P - <n> > P 

(REC <etiq>) iner P; PC > MIP]; <etiq> > PC 
(DEREC) МІР) + PC; decr P | 


(JATOM «e» <etiq>) <stiq> + PC si (ATOM <e>) 
(МАТОМ «e» <etiq>) «etiq» + PC si (NOT (ATOM «e»)) 


(ШЕП «el» «e2» <etiq>) 
«etiq» > PC si «el» = «e2» 


(JNEQ «ei» «e2» <etiq>) 
«etiq» +» PC si «el» = <e2> 


(J <etiq>) ` «etiq» + PC 


(CONS <el> <e2> <reg>) с 
| «e1» CONS <e2> + <reg> : 


< | (PRINT <e>) ` Unpression de «e» 


(READ «reg»? tire dans «reg» 
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A om à 


Pour lancer toute l'affaire faites : 


(RUN "LISP) 


Et vcila le listing de la micro-machine. 


(DE EXP OO (COND ; Pour decoder une «e» ; 
(САТОМ X) (COND ş sans trop chercher a verifier ; 
(CMEMA X '(T NIDO X) 
C(ISREG X) (CAR Х)) 
(T (ERREUR 'REG)))) 
C(NUMBP (CAR X)) 
(LET ((N (CAR X)) (STACK STACK)? 
(IF (ZEROP N> (CAR STACK) 
(SELF (1+ N) (CDR STACK))))) 
((EQ (CAR X) 'QUOTE) (CADR X)) 
((HEMQ (CAR X) '(CAR CDR CAAR CADR СВАЯ CDDR)) 
(EVAL X)) 
(T (ERREUR 'EXP)))) 


(DE ERREUR (K) (PRINT 'ERREUR K> 
(WHILE T (PRINT (EVAL (READ))))) 

(DE ISREG OO «МЕМО X '(Al A2 АЗ A4 AS ENV))) 

(DE PUSH OO (SETQ STACK (CONS X STAEK) )) 

(DE РОР (> (NEXTL STACK)) 

(DE RUN (START) ; START : etiquette de depart dans MEM ; 
(SETQ A1 (SETQ A2 (SETQ A3 (SETQ A4 (SETQ A5 'START))))) 
(SETQ STACK NIL) 

(SETQ PC (МЕМО START MEM)) 
(LOOP) ) 


(SETQ STEP NIL) ; Pour Stepper chanter (SETQ STEP T) ; 


(DE LOOP () $ La boucle de decodage et de lancement ; 
(WHILE PC 
(IF (ATOM (CAR PC)) (МЕХТ PC) 
OCT (NEXTL PC))))) 


(DE JUMP (X ¢$; Y) E Y (MEMQ X MEM)) 
(IF Y (SETQ PC Y) (ERREUR *ETIQ-INC))) 
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(DE XCT (INS) ; Les micro-programmes des instructions ; 
(SELECTQ (CAR INS) 
(PUSH (PUSH «EXP (CADR INS)))) 
(POP (SET (CADR INS) (POP))) 
(SUB (SETQ STACK (NTH (ADD? (CAODR INS)) STACK))) 
(REC (PUSH PC) (UMP (CADR INS))) 
(MV (SET (CADDR INS) (EXP (CADR INS)))) 
(DEREC (SETQ PC (POP))) 
(JATOM (IF (ATOM (EXP (CADR INS))) (JUMP (CADDR INS)))) 
(JNATOM (IF (ATOM (EXP (CADR INS))) NIL (JUMP (CADDR INS)))) 
(ЛЖ а (IF NED (EXP (САПА INS)) (EXP (CADDR INS))) 
(JUMP (CADR (CDDR INS))))) 
(JEQ (IF (EQ (EXP (CADR INS)) (EXP CCADDR. INS))) 
(JUMP (CADR (CDDR INS))))) 
(J (JUMP (CADR INS))) 
(CONS (SET (CADR (CADDR INS)) 
(CONS (EXP (CADR INS)) (EXP (CADDR INS))))) 
(PRINT (PRINT (EXP (CADR INS)))) 
(READ (PRINT 'SMTHNG 'TO 'EAT PLEASE °?) 
(SET (CADR INS) (READ))) 
(T «ERREUR ° INSTR-INC)))) 
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—, a c= n s 


Et voici a present l'interprete VLISP pur et son operating system 
code dans le langage assembleur LAP specifique a cette machine. 


(SETQ MEM '( 


LISP 
(MV '((NIL NIL) (T T>) ENV) ; envir. initial ; 
(J LOOPTEST) : en voiture ! $ 
LOOP] $ l'expression lue n'est . ; 
$ pas une definition. ; 
(REC EVAL) ; evaluons-la donc ; 
LOCP2 
. (PRINT A1) ; imprimer te resultat $ 
LOOPTEST ş et recommencer Р 
(READ А1) : lire une expression  ; 
(JATOM A1 LOOP1) ; est-ce un atome ? ; 
(JNEQ (CAR А1) ‘DE LOOP1);est-ce une definition ? $ 
(MV (CDDR Al) A2) ; c'est une (DE nom iargs corps) ; 
(CONS 'LAMBDA A2 A2) ; A2 = (LAMBDA largs corps) ; 
(MV (CADR Al) Ai) ; А1 = Le-nom ; 
(PUSH A1) 
(MY ENV A3) ş preparer АЗ pour NEHENV ; 
(REC NEWENV) 
(MV A1 ENV) s ENV = ((nom lambda) . old-ENV) ; 
(POP A1) s А] = 1е-пот pour impression  ; 
(J LOOP2) 
NEHENV ; А1 = un-nom . А2 = une-valeur ; 
t A3 = un-environnement. ; 
(CONS A2 NIL A2) 
(CONS Ai A2 A1) 
(CONS A1 A3 AD 
(DEREC) ç Al = ((nom valeur) . env) ; 
VALUE ; А1 = un-nom. Оп va chercher ; 
; sa veleur dans : 
(MV ENV A2) ; preserver ENV dans A2 ; 
(J VALUETEST) ; et commencer іа recherche $ 
VALUE2 
(MV (CDR A2) A2) ; avancer dans l’environnement $ 
VALUETEST | 
(JEQ A2 NIL ERREUR) ; on n'a pas trouve le nom !!! ¿+ 
(МЕО (CAAR А2) A1 VALUE2) ; est-ce Le nom ? 3 
(MY (CAR(CDAR A2)) A1) ¢$ out. А1 = ls-valeur associee ;. 
(DEREC) i | 
SUPNEWENV А1 = une Liste de noms nN 


$ : 3 
$ А2 = une Liste de valeurs vN ; 
; АЗ = un environnement e 3 
(JNEQ A1 NIL SUPNEL2) 
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(Mv A3 A1) 


7 «PUSH (CAR A1)) 

(PUSH (CAR A2)) 

(MV (CDR A1) A1) 
(MV (CDR A2) A2) 
(REC SUPNELENV) 

(MV А1 АЗ) 

(РОР А2) 

(РОР А1) 


* 
۴ 
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(J NEWNENY) 


| ST-SUBR 
(JEQ A 


(JE 
(J ERREUR) 


CAR 


wo ve 


ou ATOM ou EQ ? 
"САА TRUE) 

"CDR TRUE) 

'CONS TRUE) 

"АТОМ TRUE) 

'EQ TRUE) 


A1) 


a guk ber T selon La SUBR 

А1 = ia-SUBR 

A2 = une liste d'arguments 
evalues. 


*CAR CAR) 

'CDR CDR) 

* CONS CONS) 

*ATOM ATOM) 

*EG EQ) 

ş SUBR inconnue !!! 


(MV (СААЯ A2) A1) 


(DEREC) 


(MV (COAR A2) A1) 


(DEREC) 


. (CONS SCH A2) (CADR A2) A1) 
(DEREC) 


(JATOM (CAR A2) TRUE) 
(J FALSE) 


(EQ (CAR A2) (CADR A2) TRUE) 


(J FALSE) 
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DEEP wr 


ST-FSUBR ; Al est-ıi QUOTE ou IF ? 
(JEQ Al 'QUOTE TRUE) 
(JEQ A1 'IF TRUE) 
(J FALSE) 


EXEC-ST-FSUBR 


+o 


2 
== 
# 


; (QUOTE e) ou 
s Al = (IF test el e2) ou 
; Al = ??? 
(JEQ (CAR A1) 'QUOTE QUOTE) 
(JEQ (CAR A1) 'IF IF) 


" wg wg 


(J ERREUR) 
QUOTE 
| (MV (CADR A1) A1) : A1 = е ; 
e (DEREC) 
(PUSH (CDDR A1)) ; preserver (el е2) $ 
(MV (CADR A1) A1) ; Al = le-test ; 
(REC EVAL) : l'evaluer ; 
(POP A2) ; A2 = (el e2) ; 
(JEQ A1 NIL IF2) 
(MV (CAR A2) A1) s Si test OK evaluer el ; 
(J EVAL) 
1F2 
(MY (CADR А2) А1) $ si test KO evaluer е2 3 
(J EYAL) 
EVAL , ; l'evaluateur en personne $ 
; Ai = une expression e ; 
(JATOM A1 VALUE) s Si c'est un nom ramener : 
; sa valeur dans ENV. 8 
(PUSH A1) $ в = (fonc al a2 ... aN) : 
(JNATOM (CAR A1) EVAL2) ; e est il atomique ? ; 
(MV (CAR A1) A1) s Qui, А1 = La-fonction ; 
(REC ST-FSUBR) s est-ce une FSUBR ? $ 
(JEQ A1 NIL EVAL2) 
(POP A1) ; oui. А1 = (ta-FSUBR al ... aN) 
(J EXEC-ST-FSUBR) ; l'executer froidement. 
EVAL2 le-fonction n'est pas une FSUBR 


[ 
; on va evaluer les arguments 

; (al ... aN) . Ca sera toujours 
ş ca de fait. 


(POP A1) recuperer Al - (fonc al ... aN) 


(PUSH (CAR A1)) ; preserver ia-fonction. 
(MV (CDR Al) A1) ; Al = (al ... aN) 

(REC EVARGS) 

(MV A1 A2) ; A2 = (val-al ... val-aN) 
(POP A1) ¢ А1 = La-fonction. 

(J APPLY) ş aux bons soins d'APPLY. 
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om E 


EVARGS 
(JEQ A1 NIL FALSE) 
(PUSH A1) 
(MV (CAR A1) Al) 
(REC EYAL) 
(POP A2) 
(PUSH A1) 
(MV (CDR A2) A1) 
(REC EVARGS) 
(POP A2) 
(CONS A2 A1 A1) 
(DEREC) 


APPLY 


(PUSH A1) 

(JNATOM A1 APPLY2) 
(REC ST-SUBR) 

(JEQ A1 NIL APPLY3) 
(POP A1) 

(J EXEC-ST-SUBR) 


APPLY2 


(MV (CADR A1) A1) 
(MV ENY A3) 

(REC SUPNELENV) 
(POP А2) 

(PUSH ENV) 

(MV A1 ENV) 


(MV A2 A1) 
(МУ (САА (CDDR А12) А1) 
(REC EVAL) 


(POP ENY) 


(DEREC) 
APPLY3 


ы (POP A1) 
(PUSH A2) 


(REC EVAL) 


D 
9 


; le 
(JNEQ (CAR A1) 'LAMBDA APPLY3) 


3 


D 


=e «р ve че w w ep =e vo ep eg 


wO 95 99 ос ve че 


a l’entree, А1 = (al ... aN) 


a la sortie, 
Al = (vai-ai ... val-aN) 


А1 = une-supposee- fonction. 
A2 = une liste d'arguments 
evalues. | 


preserver la supposee-fonction 
La fonction est-elle atomique ? 
oui. Est-ce une SUBR ? 


oui. L'appliquer froidement 
8 la liste de valeurs d'args. 


fonc. n'est pas une SUBR. 


est-ce une LAMBDA-expression ? 
і.е. (LAMBDA (vl ... vN) corps? 
oui. A1 = (v1 re VN) 


sauver l’environnement courant 
Voict ie nouvel environnement : 
((v1 vat-al) oes 

(vN val-aN) , le-viei1-ENV) 


Al = le-corps de la LAMBDA-exp. 
qu'on evalue dans te 
nouvel environnement. 


Al = ie resultat de 
l’evaiuation du corps. 

On restitue t'ancien ENV. 

Et on retourne a l’envoyeur. 


\s-fonction est donc un quasar 
qu’il convient d’eveluer. 

Àl =< Le-fonction. 

sauvons le liste des 

(va L-el e ee ve (~a) 

evaluons le quasar. 
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Фе 9 9 ep 
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f: od n .ecr 


(POP A2) 
(J APPLY) 


restituons la liste des vat-al 
et reprenons l'examen 

de la nature de la-fonction. 

z DE FONCTIONA RERUM 


че *» we 


)) 
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9,4 LISTING DE L'EDITEUR EF, DE ADVISE ET BREAK. 


Ces ou ils de mise au point ont ets largement exposes au Chapitre 8. 
Le lecteur s'y reportera en cas de doute. 


(DF MV (L ; 
(WHILE L' {sera X (NEXTL L)) 
(5:435 (SETQ жж (IF (NUMBP X) (МТН X жж) (CAR 33022) 


(DE SPRINT (N L) ; Pour imprimer l'e L ' 
PRIN VE CGR (ATOM 1} kZEROP ND) L (PRÉ L 0 NID) pr N niveau; 


(DE SPRC (L N1 N2) (COND 
((NULL L) NIL) 
((GT N1 №) "ei 


((ATOM L) L) 
(«CONS (SPRC (NEXTL L) (ADD1 М1) N2) (SPRC L N1 N2))))) 
(DE FIND (L A P) (COND ; Pour aider FK et FP ; 


((ATOM L) NIL) 

((AND A (EQUAL. (CAR L) A)) L) 

((AND P (FILTER (CAR L) P)) L) 

((OR (FIND (NEXTL L) А P) (FIND L A P))))) 


(DE FILTER (D P) «COND 
((EQ P '?)) ; Ex. d'un tel filtre : (COND . ?) ; 
( (NULL P) (NULL D») 
((ATOM (CAR P)) 
(IF (OR (EQ (CAR P) '?) (EQ СА P) (CAR D))) 
(FILTER (CDR D) (CDR P))) 
(FILTER (NEXTL D) (NEXTL Р)? (FILTER D Р)))) 


(OF EF (F) (SETQ жж (CADDR. (CAR F))) (P 1)) ; L’editeur lui-meme ¢$ 
(DE Р (N) (SPRINT N жж) "ei 


(DF IL (Е) ; (IL el e2 ... eN) ; 
(NCONC ** E) 
(P 1)) 


(OF 1 (UL) 
(NCONC L «CONS (CAR жж) (CDR жж) )) 
то" 


(DF ЕР (Р) 


(SETQ жж (FINO жж NIL (CAR F22) 
(P 1)) 
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(DF FK (A) 
m жж (FIND жж (CAR A) NIL)) 
(P 1» 


р (REPEAT N (RPLACB жж (CDR жж? 3 ° 
›) 


(DF DL ; X) 
(SETQ x жж) (WHILE (CDDR X) (NEXTE X)) (en ACH X) (P 1)) 


(DF ADVISE (L ;; NOM EXP RES1) 
(SETQ NOM (NENT L) EXP (CADDR NOM) RES! i" PROGN] ) 
(PUT NOM EXP *ADVISE) 
(WHILE (NEQ (CAR L) "ei (NCONC1 RESI (NEXTS L))) 
(NEXTL L) 
(RPLACA (CDDR NOM) 
(MCONS LAMBDA (CADR EXP) 
['SETO '-VAL- (NCONC RESi (CDIR EXP))] 
(NCONC1 L '-VAL-))) 
(CONS NOM) ) 


(DF UNADVISE (L) 
(RPLACA (CDDR (CAR L)) (GET (CAR L) 'ADVISED) 
HER (CAR L) 'ADVISE) 


(Dr BREAK (L ;; NOM X) 
(SETQ NOM (CAR L) X (CADDR NOD? ; X = ia X-expression ; 
(PUT NOM X 'BREAK) 
(SET (CDOR NOM) (NCONC (LAMBDA (CADR X) 
"ТОР (QUOTE (BREAK. NOM1111 
p (CDDR X))) 


(DF UNBREAK (L) 
(SET «CODR (CAR L>) (GET (CAR L) BREAK) ? 
add (CAR L) 'BREAK) 


(DE TOP (MSG 3; -X-) ş La boucle TOP-LEVEL du BREAK : 
(PRINT MSG) 
(IF (EQ (SETQ -X- (READO T) T 
(PRINT (EVAL -X-)) 
(TOP MSG) )) 
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gege 


9,5 UN PROGRAMME DE VERIFICATION DE FOFMULES EN CALCUL PROPOSITIONNEL 
Ce programme est une adaptation en VLISF 16 de la version livree 


dans Le Cours d'Option au fascicule 5 pp. 54-55. La verification 
des formules est effectuee par la methods dite "des tableaux". 


Et voici quelques verifications : 

сз "(А OU (PAS A))) 

сша "(А IMP (В IMP A))) 

lla: '((A IMP B) IMP ((PAS B) IMP (PAS A200) 

Pian ” ( (C(A IMP B) ET A) IMP 8D 

OUEST ' («4A QU В) ET (PAS A») IMF B)? 

PEE ' (((PAS A) OU (B IMP C)) IMP (А ET (PAS B)) OU (A IMP C)))) 
"uem du verifieur suit : 


(DE THEOREME (L) 
(FERME O ICONS '- (POL L))1)) 


(DE POL (L) «COND ; Pour rendre les formules illisibles ; 
(САТОМ L) (L1) 
(«EQ (CAR L) 'PAS L) 
(T (CONS (CADR L) (APPEND (POL (CAR L)) (POL (CADDR L))))))) 


(DE FERME (X L) (COND 
( (NULL L) NIL) 
((MEMQ (CADAR L) ° (PAS IMP ET GU)? 
Р ((CADAR L) X (CAAR L) (CDDAR L) (COR L))) 
(T (AJOUT X [(CAR L)) (CDR L))))) 
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(DE AJOUT (X L1 L2) (COND 

((NULL Li) (FERME X L2»? 

((MEMQ (CADAR L1) '(PAS IMP ET OU)? 

(COND ((MEMBER (CAR L1» L2) (AJOUT X (CDR L1) L2)) 
( (MEMBER (CONS (NEGAT (CAAR L1)» (CDAR L1)) 12) T) 
(T (AJOUT X (CDR 11) (CONS (CAR 11) L2))))) 

( (MEMBER (CAR L1) X) (AJOUT X (CDR L1) L2)) 

( (MEMBER (CONS (NEGAT (CAAR L1)) (CDAR LID X) T) 

(T (AJOUT (CONS (NEXTL L1) X) L1 L2)))) 


(DE NEGAT (V) CIF «EQ V '+) '- *+)) 


(DE SOUSEXP (L1 L2 N) 
` (IF (ZEROP N) (CONS L1 L2) 
(SOUSEXP (APPEND L1 [(CAR L2)1) 
(CDR 12) 


(COND «(EQ (CAR 12) 'PAS) N) 
((MEMQ (CAR L2) ? (ЕТ OU IMP)? (ADD1 ND» 
(T (SUBI N)))))) 


(DE PAS (X V Li L2) 
(AJOUT X [(CONS (NEGAT V) L1)1 L2)) 


(DE ET (X V L1 L2) 
(LET (Y (SOUSEXF NIL L1 1))) 
(IF (EQ V '+) 
(AJOUT X [(CONS V (CAR Y)) (CONS V (CDR Y)1 L2) 
(AND (AJOUT X ICONS V (CAR Y))1 12) 
(AJOUT X [(CONS V (СВА 1001 L2))))) 


(DE QU (X V L1 L2) 
(LET (XY nt ae Nil Li 105) 
(IF (EQ V ° 
(AND (AJOUT X [(CONS V (CAR Y))) L2) 
(AJOUT X ICCONS V (CDR Y))1 L2)) 
(AJOUT X [(CONS V (CAR Y)) (CONS Y (CDR Y))] L2)))) 


(DE IMP (X V L1 L2) 
(LET (CY 2 NIL Li 1))) 
(IF (EQ V "ai 
(AND (AJOUT X I«CONS (NEGAT V) (CAR Y) L2) 
(AJOUT X («CONS V (CDR Y))] L2) 
(AJOUT X [(CONS (NEGAT V) (CAR Y)) (CONS V (CDR Y))1 L2)))) 
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9.6 UN PROGRAMME DE DEMONSTRATION INTERACTIVE. 


Ce programme permet de demontrer interactivement des proprietes de 
fonctions LISP. 

Ya tout le tremblement : evaluation symbotique, induction struc- 
turelle, gensratisation, subst. de l'hypothese d’ induction ... 


Les commandes: 


-1- definitions de fonctions VLISP ordinaires (peuvent 
Si inter-appe lier). 


-2- (ANA <le-nom-de-la-fonction>), quoter le nom SVP. 
Suit obligatoirement la definition, si la fonction est utilisee 
dans un theoreme (ca ne l'empeche pes de tourner). 


-S- (THEO <partie-gauche> = <partie-droite>) 
pour soumettre Le theoreme a 1’ interactiveteoremprouvere. 


-4- (INDUCT LIST «nom-de-variable») , induction type-Liste. 
-5- (INDUCT NUM <nom-de-variabie>) , itou sur type-nombre. 


-6- (GEN «expressionl» «vari» ... ) pour i = 1,n. 
Substitue (generalisation) Les expressions] aux variablesl. 


-7- K(INDHYP «n» «direction»? | 
Substitue а ta n-ieme occurence de іа partie gauche de 
L’hypothese d’induction (direction = A sa partie droite. 
L’ inverse si direction = "«-" , 


Exemple de session: 


; On definit une fonction APP 
(DE APP (X Y) CIF (NULL X) Y (CONS (CAR X) (APP (CDR X) GIE 
; Ün en demande une analyse succinte ; 


(ANA ' APP) 
; On rentre le theoreme qu’on souhaite demontrer ; 
(THEO (APP A (APP Y Z)) = (APP (APP X Y) 2») 
; Faut faire une induction structurelle de type-liste 
sur ia variable X ; 
(INDUCT LIST X) 
: Faut utiliser l'hypothese d' induction en 
| substituant sa partie droite (->) а sa partie gauche, 
| et sur la lere occurence de la partie gauche; 
| (INDHYP 1 -» 
Ë +; Voila le theoreme demontre !!! z 


Que tes primitives recursives soient avec vous. 
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Voici a present deux exemples d'utilisation du programme. 


D(THEO (APP A (APP B C)) = (APP (APP A B) CD 

жж 0 PROVE (APP A (APP B CD = (APP (APP A B) C) 

COMMAND ? 
?XINDUCT LIST A) 

xx BASE | 

жж 1 PROVE (APP NIL (APP B С)) = (APP (APP NIL B) C) 

xx 1 PROVED 

xx STEP 

xx 1 PROVE (APP (CONS 6101 A) (APP B С)) = (APP (APP (CONS 6101 А) B) C) 
жж 2 PROVE (CONS G101 (APP A (APP B C))) = (CONS G101 (APP (APP A В) C») 
COMMAND ? 

?XGNDHYP 1 -») 

жж З PROVE (CONS 6101 (APP (APP A B) С)) = (CONS G101 (APP (APP A В) CD 
xx 3 PROVED 

xx 2 PROVED 

xx 1 PROVED 

xx 0 PROVED 

PROVED 


http:;//www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 110 / 130 


ч 


Le Système YLISP 16 Page 9-21 
I —^-——————"———————— —— C o d Dad 


?<THEO (P A B) = (P B AD 
жж O PROVE (P A B) = (PB A) 
COMMAND ? 
? CINDUCT NUM A) 
xx BASE 
xx i PROVE (P 0 B) = (PB N) 
жж 2 PROVE B = (PB 0) 
COMMAND ? 

* ? (INDUCT NUM B) 
жж BASE 


xk 3 PROVE O = (PO 0) 
xx 3 PROVED 

жж STEP 

жж 3 PROVE (А001 B) = (P (ADDI 8) 9) 

xx 4 PROVE (А001 B) = (ADD1 (P Bn: 
COMMAND ? 

?(INDHYP 1 ->) 

жж 5 PROVE (ADDI (P B 0) = (ADDI ¿P B 0)) 


L| 

^ 
"0 
D 


жж 1 PROVE (Р (А001 A) B) (ADD A?) 
xx 2 PROVE (А001 (P A B)) = (P В (AF21 A») 
COMMAND ? 

?GNDHYP 1 ->) 

жж 3 QE (ADD1 (P B AD» 
COMMAN 

2 CINDUCT NUM B) 

жж BASE 


зж 4 PROVE (А001 (P 0 AD = (P 0 А55: AD 
жж A PROVED 
жж STEP 
жж 4 PROVE (А001 (P (А001 B) Aò) = {Р (ADD] В) (А001 AD 
жж 5 PROVE (ADD1 (А001 (P B AJ) = А221 (P В (А001 A))) 
COMMAND ? 
?XONDHYP 1 ->) 

KK Ges DCH (P B (А001 A3)) = (ADDi (Р B (А001 A))) 


(Р B (A221 А?) 


ТРЕЕ 
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Voici le Listing du demonstrateur interactif. 


(DE ANA (Ers X VARS BODY DECVARS) 
(SETQ X (GET F "ENER: 
VARS (CADR X) 
BODY (CADDR X?) 
(LET «(Е BODY)? (COND 
(САТОМ Е)) 
(МЕМО (CAR Е) ’ (CAR CDR SUBI) ) 
(IF (ATOM (CADR E2) 
(AND (МЕМО (CADR E) VARS) 
(OR (MEMQ (CADR E) DECVARS) 
(SETQ DECVARS (CONS (CADR E) DECVARS)))) 
(SELF (CADR E)))) 
(T (SELF (NEXTL E)? (SELF E)))) 
(PUT F VARS 'VARS) 
(PUT F BODY 'BODY) 
(PUT F DECVARS *DECVARS) ) 


(DE VARS (F) (GET F 'VARS)) 


(DE BODY (F) (GET F 'BODYO? 
(DE DECVARS (F) (GET F "DECVARS)) 
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; жжжжжж EVALUATEUR SYMBOLIQUE жжжжжжж ; 


(DE RED (E AL) (COND 
((ATOM Е) (LET «(ҮА (А5580 E AL))) 
(JF VAL (CADR VAL) E))) 
(«EQ (CAR E) 'IF) 
(LET «(TEST (RED (CADR Е) AL))) (COND 
| ((NULL TEST) (RED (CADR(CDDR E)) ALD) 
| ((OR (EQ TEST Т) «EQ (CAR TEST) 'CONS)) 
(RED (CADDR E) AL)) 
(T (MCONS 'IF TEST (CDDR E)))))) 
(T (LET ((LARGS (MAPCAR (CDR E) (LAMBDA (Е) (RED E AL)))) 
(FUN Gab E») 
(SELECTQ FUN 
(CAR (IF (EQ (CAAR LARGS) ? CONS) 
(CADAR LARGS) 
(CONS FUN LARGS))) 
(CDR (IF (EQ (CAAR LARGS) *CONS) 
(CADDR (CAR LARGS) ) 
(CONS FUN LARGS))) 
(SUB1 (IF Ea (CAAR LARGS) 'ADD1) 
CADAR LARGS) 
(CONS FUN LARGS) ) ) 
(ADD1 (CONS FUN LARGS) ) 
(CONS (CONS FUN LARGS) ) 
(ZEROP (COND ((ZEROP (CAR LARGS)) T) 
( (EQ (CAAR LARGS) 'ADD1) NIL) 
(T {CONS FUN LARGS)))) 
(NULL (COND ((NULL (CAR LARGS)) T) 
((EQ (CAR LARGS) T? NIL) 
((EQ «СААЯ LARGS) 'CONS) NIL) 
(T «CONS FUN LARGS) 22) 
(T (LET ((AL1 (REDPAIR FUN (VARS FUN) SE 
(IF (EQ AL] 'NO)? (CONS FUN LARGS) 
(RED (BODY FUND СМСОМС AL1 AL)))))))))) 


; жжжжжж CONTROLEUR ОЕ DEPLOIEMENT жжжжжж ; 


(DE REDPAIR (FUN VARS LARGS ;; DECVARS RES V L) 
(ESCAPE EXIT 
(SETQ DECVARS (DECVARS FUND) 
š (WHILE VARS 
| (SETQ V (NEXTL VARS) L (NEXTL LARGS)) 
| (IF (МЕМО V DECVARS) 
(AND L (NEQ L 0) 
(NEQ оү; s 'CONS) (МЕЦ (CAR L) 'ADODD 
(EXIT *NO) )) 
(SETQ RES (CONS (LIST V L) RES))) 
RES) ) 
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; жжжюжжжж QUELQUES FONCTIONS DE TEST жжжжжжжжжЖ ; 

(DE LOOP <) (PRINT 'EVAL 'SYM ) (PRINT (RED (READ) OY? CERPRD (LOOP) ) 
(DE APP (X Y) (IF (NULL X) Y (CONS (CAR X) (APP (COR X) Y)))) 

(ANA 'APP) 


(DE REV (X) (IF (NULL X) NIL (APP (REV (CDR X>) (CONS (CAR X) NIL)))) 
(ANA 'REV) 


(DE LEN (L) (IF (NULL L) 0 (ADDI (LEN (CDR L))))) 
(ANA 'LEN) 


(DE P (X Y) (IF (ZEROP X) Y (ADD1 (P (SUB1 X) Y)))) 
(ANA 'P) 


(DE M (X Y) (IF (ZEROP X) 0 (P Y (M (SUB1 X) Y)))) 
(ANA "Hi 


http://www.artinfo-musinfo.org Le Système VLISP 16, décembre 1978, page 114 / 130 


£x 


Le Systère VLISP 16 Page 9-25 


; жжжжжжжж LE-PROOF-VERIFIEUR жжжжжжжж 3 


(DF THEO (L) 
(PROVE L 05) 


; EX: (THEO (P M N) = (P N MD ; 


(DE PROVE (TH N ;; THH) ; TH = (ox = жж) 
GE (NCONC IN 'PROVE] TH)) 


((EQ (SETQ THH (REDUCE TH?) T?) 
( (EQUAL TH THH) (COMMAND?) 
(T (PROVE THH (ADD1 N)))) 

E (PSTAR [N ?PROVED] )) 


(DE PSTAR (L) 
(PRINi 'жж) 
(APPLY PRINT L5) 


` 
LI 


(DE COMMAND (;; COM PAT REMP NBOC) 
(PRINT 'COMMAND '/?) 
(SETQ COM (READ) ) 
(SELECTQ (CAR COM) 
CINDUCT (COND ((EQ (CADR СОМ) ’LIST) 
(LISTINDUCT (CADDR COM) TH)) 
(«EQ (CADR COM) 'NUM) 
(NUMINDUCT (CADDR СОМ) TH?) 
(T (PRINT 'HRONG 'TYPE) 
(COMMAND) ) } ) 
(INDHYP (SETQ NBOC (CADR СОМ) > 
(IF (EQ (CADDR СОМ) '-—>) 
(SETQ РАТ (CAR IH) REMP (CADDR IH)) 
(SETQ PAT (CADDR IH) REMP (CAR 1H))) 
(PROVE (USEINDHYP TH) (ADD1 N))) 
(GEN (PROVE р (LSUB (CDR COM) )) 
(SELF pape c (NEXTL LSUB) (NEXTL LSUB) TH) 
) 


TH») 

(ADD1 N22) 
| (LOOK (PRINT (EVAL (CADR СОМ))) (COMMAND)) 
d ` (Т (PRINT "UNKNOHN 'COMMAND? (COMMAND) ) } 2 


(DE PEDUCE (THH ;; X Y) 
(SETQ X (RED (EAR THH) NIL) 
. Y (RED (CADDR THH) NIL)) 
| (QR (EQUAL X Y) 
š (X '= ү])) 
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(DE LISTINDUCT (VAR IH) ; IH = INDUCTION HYPOTHESIS ; 
(PSTAR ['BASEI) 
(PROVE (SUBST NIL VAR IH) (ADD1 №) 
(PSTAR ['STEP] ) 
(PROVE (SUBST ['CONS (GENSYM) VAR] VAR IP) (ADD1 №) 


(DE NUMINDUCT (VAR IH) 
(PSTAR L’BASE] ) 
(PROVE (SUBST 0 VAR IH) (ADD1 №) 
(PSTAR L’STEPI) 
(PROVE (SUBST L'ADDi VAR] VAR IH) (ADDI N???) 


(DE USEINDHYP (TH) (COND 

(«АТОМ TH) (IF (NEQ TH РАТ) TH 

(SETQ NBOC (SUB1 NBOC)) 

(IF (ZEROP NBOC) ВЕМР ТН))) 
((EQUAL TH РАТ) (SETQ NBOC (SUB1 NBOC) 

(IF (ZEROP NBOC) REMP 

(CONS (USEINDHYP (NEXTL ТН)? 
(USEINDHYP TH)))) 
(T «CONS. (USEINDHYP (NEXTL TH») 
(USEINDHYP TH))))) 


(DE SUBSTEQUAL (X Y TH) (COND 
(EQUAL Y TH) X) 
( (ATOM ТН) TH) 
(T «CONS (SUBSTEQUAL X Y (NEXTL TH») 
(SUBSTEQUAL X Y TH))))) 
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9.7 UN PROGRAMME DE DIALOGUE : AZERTYOP 


AZERTYOP est un petit programme de comprehension de scene, d'action 
sur la scene comprise, de dialogue enfin a son sujet. 


Que te lecteur considere AZERTYOP comme un robot ingenu, capable 

dans Les limites de son univers propre, de voir, de saisir, de se 

souvenir, de parier, d'interroger, de protester (contre les ordres 
` idiots, le tout tres poliment. 


Voici une des aventures d'AZERTYOP qu’on appelle a ‘la vie en 
chantant a VLISP 16 : 


. (AZERTYOP) 


Le parteneire d'AZERTYOP tape ses ordres et questions a la suite du 
prompteur "?", AZERTYOP se nomme lui-meme a chacune de ses reponses. 


? (AZERTYOP) 
(AZERTYOP : BJOUR MSIEU) 
?(LE CUBE 1 EST PAR TERRE) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEUD 
? (2 EST SUR 101) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEUD 
? (LE CUBE 3 EST PAR TERRE) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEU? 
? (VOYONS) 
(3 SUR TERRE) 
(2 SUR 1) 
(1 SUR TERRE) 
(DABA) 
? (QU EST 3) 
(AZERTYOP : PAR TERRE IL EST MSIEU) 
? (PREND LE) 
(AZERTYOP : QUI MSIEU COMPRIS MSIEU) 
? (VOYONS) 
(3 MAIN) 


(2 SUR 1) 
(1 SUR TERRE) 
(DABA) 
uu ET JE TIENS 3 
j 2(MET LE SUR 2) 
| (AZERTYOP : OUI MSIEU COMPRIS MSIEU) 
? (VOYONS) ` | 
(3 SUR 2) 
(2 SUR 1) 
А (1 SUR TERRE 
| (DABA) 
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? (PREND LE CUBE 4) 
(AZERTYOP : YA PAS DE 4 MSIEU) 
? (PREND LE CUBE 2) 
(AZERTYOP : JPEU PAS MSIEU YA 3 DESSUS) 
?(4 EST PAR TERRE) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEUD 
? (VOYONS) 
(4 SUR TERRE) 
(3 SUR 2) 
(2 SUR 1) 
(1 SUR TERRE) 
(DABA) 
? (MET 3 SUR LUI) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEUD 
? (VOYONS) 
(3 SUR 4) 
(4 SUR TERRE) 
(2 SUR 1) 
(1 SUR TERRE) 
(ВАВА) . 
? (МЕТ 1 SUR 1) 
(AZERTYOP : PERSONNE Y PEU FAIRE UNE CHOSE COMME CA MSIEU) 
? (PREND 3) 
(AZERTYOP : QUI MSIEU COMPRIS MSIEU) 
? (OU EST IL) 
(AZERTYOP : JELTIEN BIEN MSIEU) 
? (PREND 4) 
(AZERTYOP : CAISSE QUEJFAI DE 3 MSIEU ?) 
? (POSE LE PAR TERRE) 
(AZERTYOP : OUI MSIEU COMPRIS MSIEU) 
? (VOYONS) 
(3 SUR TERRE) 
(4 SUR TERRE) 
(2 SUR 1) 
(1 SUR TERRE) 
(DABA) 
? (BYE) 
(AZERTYOP : RVOIR MSIEU) 


Et voici le listing de AZERTYOP. Dans son etat AZERTYOP est 
incomplet et  inconsistant, le lecteur est cordialement convie a le 
corriger et i'augmenter de toutes les manieres, apres examen du 
progremme ou il trouvera quelques unes des techniques souvent mises 
en jeu aujourd’hui dans les programmes de dialogue. LT 


-Sur un terminal video, une extension naturelle sera la visualisation 


de іа scene et l'animation des deplacement et saisies d' AZERTYOP 
qu'on munire pour l'occasion d'une pince. 
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. (DE AZERTYOP CG: PHRASE) 
(PRINT * (AZERTYOF : BJOUR MSIEUD) 
(SETQ WORD NIL DABA [D DABA]] FOCUS NIL SH. NIL #REL NIL #LOC NIL) 
(WHILE (NOT (EQUAL (SETQ PHRASE (READ)) ' (BYE?) 
(OR (EVAL NET (GET "PHRASE 'NET) PHRASE) 
(PRINT ’ CAZERTYOP : ZAI RIEN COMPRIS MSIEU) ))) 
'(AZERTYOP : RVOIR MSIEU)) 


(DE EVAL-NET (NET PHRASE) (COND 
((NULL NET) NIL) 
((EVAL-CLAUSE (CAR NET) PHRASE)) 
(Т (VAL-NET (CDR NET) PHRASE)))) 


(DE Ev \L-CLAUSE (CLAUSE. PHRASE) 
(JF NULL CLAUSE) (LIST PHRASE) 
(SETQ LASTHORO WORD LORD (CAR PHRASE) 2 
(IF (ATOM (САВ CLAUSED) 
(IF (EQ (NEXTL CLAUSE) WORD) 
(EVAL-CLAUSE CLAUSE (CDR PHRASE) 22 
(SELECTQ (CAAR CLAUSE) 
($АСТ (EPROGN (CDAR CLAUSE?) 
(EVAL-CLAUSE (CDR CLAUSE) PHRASE) ) 
(SOR CIF (МЕМО WORD (CDAR CLAUSE) 
(EVAL-CLAUSE (CDR CLAUSE) (CDR PHRASE) ))) 
(STEST (IF (EVAL (CADAR CLAUSE)? 
(EVAL-CLAUSE (CDR CLAUSE) (CDR PHRASE)))) 
($CALL (SETQ AUX (EVAL-NET Е, (CADAR CLAUSE) 'NET) 


ASE?) 
05359 (IF AUX (EVAL-CLAUSE (COR CLAUSE) (CAR AUX) 33) 


(DF DEF-NET (L) «PUT (CAR L) (CDR L) 'NEDO 


(DEF-NET PHRASE 
(VOYONS (SACT (SCENE) )) 
(XSCALL NG) (SACT (SETQ #08.) #NG)) 
EST (SCALL LIEU) (SACT (DECLARATIVE))) 
(PREND (SCALL NG-LE) (S^CT (SETQ #0BJ МБ) CIMPER-1))) 
((SOR MET POSE) (SCALL GLEN (SACT (SETQ 208J #NG)) 
(SCALL LIEU? (ФАСТ CIMrER-2))) 
(QU EST (SCALL NG-IL) (SACT (SETQ #OBJ ИМО? (WHERE -Q) 2) 
ف‎ DU) (SCALL NG) (SACT (FOCUS-IT #NG) (Р-001 -MSTEUR) ) ) 


(DEF-NET NG | 
(STEST (NUMBP UORD)) (SACT (SETQ ANG LASTHORD))) 
(LE CUBE (STEST (NUMBP НОАО)) (SACT (SETQ ANG LASTUORD))) 


) 
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(DEF-NET LIEU 

(PAR TERRE «ФАСТ (SETQ 4LOC 'TERRE #REL ° SUR) )) 

(SUR (SACT (SETQ MREL 'SUR)) (SCALL NG-LUI) ($ACT (SETQ HLOC #NG) )) 
e (SACT (SETQ #REL °5005)) (SCALL NG-LUI) (SACT (SETQ #LOC #NG))) 


(DEF-NET NG-LE 
(($CALL NOD) 
SH ($АСТ (SOLVE) )) 


(DEF-NET NG-IL 
(($CALL NG)) 
Ss (ФАСТ (SOLVE) )) 


(DEF-NET NG-LUI 
((SCALL NG)) 
Na (ФАСТ (SOLVE) )) 


(DE PRESENT (-P- DABA) (COND 
( (NULL DABA) NIL) 
(MATCH -P- (NEXTL DABAD)) 
(T (PRESENT -P- DABA)))) 


(DE MATCH (-P- -D-) (COND 
(CAND (NULL -P-) (NULL -D-)) T) 
(QR (NULL -P-) (NULL -D-)) NIL) 
((АТОМ (CAR -P-)) (IF EY (NEXTL -P-) (NEXTL -D-)) 


TCH -P- -D-))) 
(«EQ (CAAR -P-) '/,) 
(MATCH (CONS (EVAL (CADAR -P-)) (COR -Р-)) -0-)) 
(EQ (CAAR -P-) '/D 
(IF (MATCH (CDR -P-) (CDR -D-)) 
(SET (CADAR -P-) (CAR -D-)))))) 


(MCHAR /! (LAMBDA O ['/! (BEAD D) 
(MCHAR 7, (LAMBDA О L’/, (EAD ID) 
(DE PRINZL ` | 

(PRINT «APPEND ` (AZERTYOP :) L))) 


(DE SCENE (O (МАРС DABA (LAMBDA OO (TTAB 5) (PRINT 302) 
|. (IF (PRESENT "OX MAIN? DABA) (PRINT "ЕТ "ЈЕ 'TIENS Х))) 


«pe SOLVE О (SETQ ANG (NEXTL FOCUS))) 
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(DE IN-DABA OO (SETQ РАВА (CONS X DABA))) 

(DE QUT-DABA (X> (OUDA X DABA)) 

(DE OUDA (X DB) (IF (EQUAL X (CAR DB)) (RPLACB D8 (CDR DB)) 
(QUDA X (CDR DB)))) 


(DE P-ABSURDE О 
(PRINZ 'C/'EST 'SAUF 'VOT 'RESPECT 'MSIEU 'ABSURDED) 
(DE P-DE-QUI O 
(PRINZ ‘DE or "VOUS 'CAUSEZ 'MHSIEU '/?)) 
(DE P-YAPAS ( 
(PRINZ "YA "PAS "DE X 'MSIEUD) 
. (DE P-OUI-MSIEU О 
` (PRINZ 'QUI 'MSIEU ‘COMPRIS 'MSIEUD) 


(DE FOCUS-IT OO (SETQ FOCUS (CONS X FOCUS) )) 


(DE DECLARATIVE О (COND 
( (EQ #REL °5005) (P-ABSURDE) ) 
(COR (NULL #0BJ) (NULL #LOC)) (P-DE-QUI)) 
( (DECL DABA)))) 


(DE DECL (DB) (COND 
(«NULL DB) (IN-DABA [#0BJ 'SUR #LOC1) (FOCUS IT #0BJ) (P-DUI-MSIEUD) 
deel DB)) (PRINZ #0BJ 'EXISTE 'DEJA 'MSIEUD) 


(DE IMPER-1 О (COND 

( (NULL #0BJ) (P-DE-QUI )) 

( (PRESENT ° (!X SUR ,#0BJ) DABA) 

(PRINZ 'JPEU "PAG 'MSIEU 'YA X DESSUS) (FOCUS-IT X)) 

( (PRESENT '(!X MAIN) DABA) (COND 
((EQ X #OBJ) (PRINZ 'JELTIEN 'DEJA 'MSIEU) (FOCUS-IT #08J)) 
(T (PRINZ 'CAISSE 'QUEJFAI *DE X 'MSIEU '/?) (FOCUS-IT Х)))) 

( (PRESENT '(,Z0BJ SUR !X) DABA) 

(OUT-DAËA [4/0BJ 'SUR X1) CIN-DABA UOBJ 'MAINI) 

(FOCUS-1T #0BJ) (P-OUI-MSIEUD) 

(T «FOCUS-IT #0BJ) (P-YAPAS #0BJ)))) 


(DE WHERE-Q () 
(IF (NULL #083) (P-DE-QUI) 
(FOCUS-IT #0BJ) 


(COND 
. ((PRESENT °’ (,#0BJ MAIN) DABA) (PRINZ 'JELTIEN "BIEN 'MSIEU)) 
| (PRESENT '(,408J SUR !X) DABA) 
S (IF «EQ X ’ TERRE) 
(PRINZ "РАВ 'TERRE "IL "EST 'MSIEUD 
(PRINZ "IL 'EST "SUR X 'MSIEUDD) 
` ( (PRESENT '(!X SUR ,#0BJ) DABA) | 
(PRINZ X 'EST "SUR 'LUI 'MAIS #OBJ 'EST "NULLE "PART '/, 
"COMME 'CA 'DES "OBJETS 'KISONT "NULLE 'PART)) 
(T (P-YAPAS #0BJ))))) 
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(DE IMPER-2 O (COND 
CCOR (NULL #0BJ) (NULL #LOC)) (P-DE-QUI)) 
((EQ #08J #LOC) (PRINZ PERSONNE 'Y 'PEU "FAIRE "UNE 'CHOSE ‘COMME 
"СА "MSIEU)) 
(«EQ ZREL °5005) (P-ABSURDE) ) 
( (PRESENT ' (,#0BJ MAIN) DABA) 
(IF (AND (NEQ #LOC TERRE) (PRESENT ? CIX SUR ,#LOC) БАВА)? 
(PRINZ °’ JPEUPA 'MSIEU 'YA X "SUR #LOC) 
(QUT-DABA L4OBJ ‘MAIN? (IN-DABA [#0BJ 'SUR ALOC1? 
(FOCUS-IT #0BJ) (P-OUI-MSIEU))) 
( (PRESENT '(!X MAIN) DABA) 
(PRINZ ‘CAISSE 'QUE 'JFAIS 'DE X 'MSIEU '/?) (FOCUS-IT X)) 
{ (PRESENT '(,#0BJ SUR !Х) DABA) 
(FOCUS-IT #0BJ) — 
(COND 
((EQ X #LOC) (PRINZ 'ILYEST 'DEJA 'MSIEUDD 
((OR (PRESENT '(!X SUR ,#0BJ) DABA) (PRESENT ' (!X SUR ,#LOC) DABA)) 
(PRINZ 'JPEUPA 'MSIEU 'YA X 'DESSUS)) 
(T (OUT-DABA 1408) 'SUR XJ) (IN-DABA [#0BJ "SUR II: 
(P-OUI-MSIEU) 73) 
(T (P-YAPAS #0BJ)))) 
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e e ù% % o% ®" 
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(LOGSHIFT nl n2) 
(LT n1 n2 SUBR a 


sn) 


. s  FSUBR .. 
(atn sn)) . L) 


2 arguments . 


a 
+ 
* 
s 


SUBR а 1 argument . . 


» ө 7-4 
arguments 4-6 
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TABLE D'INDEX DU MANUEL VLISP 16 


3-19 
3-27 
3 


3 
MACRO 3-4 
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(PRETTY noml ... 
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FSUBR . . «+ 
FSUBR 


. * H 


S 


° . . ° + + ° > * . . 
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SUBR a N arguments 3-17 


3-16 


| 5-9 
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8-1 


SUBR a N arguments 5-8 
SUBR a N uments, 5-8 
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